Lines Matching refs:path
43 my ($self,$path) = @_;
51 if ( $^O =~ m/^(?:qnx|nto|cygwin)$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
59 $path =~ s|/+|/|g; # xx////xx -> xx/xx
60 $path =~ s@(/\.)+(/|\Z(?!\n))@/@g; # xx/././xx -> xx/xx
61 $path =~ s|^(\./)+||s unless $path eq "./"; # ./xx -> xx
62 $path =~ s|^/(\.\./)+|/|; # /../../xx -> xx
63 $path =~ s|^/\.\.$|/|; # /.. -> /
64 $path =~ s|/\Z(?!\n)|| unless $path eq "/"; # xx/ -> xx
65 return "$node$path";
215 sub path { subroutine
217 my @path = split(':', $ENV{PATH});
218 foreach (@path) { $_ = '.' if $_ eq '' }
219 return @path;
254 my ($self,$path, $nofile) = @_;
259 $directory = $path;
262 $path =~ m|^ ( (?: .* / (?: \.\.?\Z(?!\n) )? )? ) ([^/]*) |xs;
355 my($self,$path,$base) = @_;
358 if ( ! $self->file_name_is_absolute( $path ) ) {
359 $path = $self->rel2abs( $path ) ;
362 $path = $self->canonpath( $path ) ;
377 my @pathchunks = $self->splitdir( $path);
385 $path = CORE::join( '/', @pathchunks );
395 if ( $path ne '' && $base ne '' ) {
396 $path = "$base/$path" ;
398 $path = "$base$path" ;
401 return $self->canonpath( $path ) ;
431 my ($self,$path,$base ) = @_;
434 if ( ! $self->file_name_is_absolute( $path ) ) {
447 $path = $self->catdir( $base, $path ) ;
450 return $self->canonpath( $path ) ;
479 my($fs, $path) = @_;
484 my($vol, $dirs, $file) = $fs->splitpath($path);