File/Spec/VMS.pm

72     my($self,$path) = @_;
74     return undef unless defined $path;
78     if ($path =~ m|/|) {
79       my $pathify = $path =~ m|/\Z(?!\n)|;
80       $path = $self->SUPER::canonpath($path);
82       return $path if $unix_rpt;
83       $path = $pathify ? vmspath($path) : vmsify($path);
86     $path =~ s/(?<!\^)</[/;			# < and >       ==> [ and ]
87     $path =~ s/(?<!\^)>/]/;
88     $path =~ s/(?<!\^)\]\[\./\.\]\[/g;		# ][.		==> .][
89     $path =~ s/(?<!\^)\[000000\.\]\[/\[/g;	# [000000.][	==> [
90     $path =~ s/(?<!\^)\[000000\./\[/g;		# [000000.	==> [
91     $path =~ s/(?<!\^)\.\]\[000000\]/\]/g;	# .][000000]	==> ]
92     $path =~ s/(?<!\^)\.\]\[/\./g;		# foo.][bar     ==> foo.bar
93     1 while ($path =~ s/(?<!\^)([\[\.])(-+)\.(-+)([\.\]])/$1$2$3$4/);
100     1 while ($path =~ s/(?<!\^)([\[\.])(?:\^.|[^\]\.])+\.-(-+)([\]\.])/$1$2$3/);
110     $path =~ s/(?<!\^)\[\.-/[-/;		# [.-		==> [-
111     $path =~ s/(?<!\^)\.(?:\^.|[^\]\.])+\.-\./\./g;	# .foo.-.	==> .
112     $path =~ s/(?<!\^)\[(?:\^.|[^\]\.])+\.-\./\[/g;	# [foo.-.	==> [
113     $path =~ s/(?<!\^)\.(?:\^.|[^\]\.])+\.-\]/\]/g;	# .foo.-]	==> ]
115     $path =~ s/(?<!\^)\[(?:\^.|[^\]\.])+\.-\]/\[000000\]/g;
117     $path =~ s/(?<!\^)\[\]// unless $path eq '[]';
118     return $unix_rpt ? unixify($path) : $path;
140 	my $path = (@dirs == 1 ? $dirs[0] : $self->catdir(@dirs));
141 	my ($spath,$sdir) = ($path,$dir);
160 	# just return a canonical path.
174 to build a path.
188 	my $path = (@files == 1 ? $files[0] : $self->catdir(@files));
189 	my $spath = $path;
191         # Something building a VMS path in pieces may try to pass a
213     # In Unix report mode, do not strip off redundant path information.
316 =item path (override)
323 sub path {
346    ($volume,$directories,$file) = File::Spec->splitpath( $path );
347    ($volume,$directories,$file) = File::Spec->splitpath( $path,
350 Passing a true value for C<$no_file> indicates that the path being
358     my($self,$path, $nofile) = @_;
360     my $vmsify_path = vmsify($path);
443     my($path,$base) = @_;
451     for ($path, $base) { $_ = $self->rel2abs($_) }
453     # Are we even starting $path on the same (node::)device as $base?  Note that
457     # a logical path difference between $path and $base nodename and/or device.
458     # Hence we fall back to returning the absolute $path spec
463     my ($path_volume, $path_directories, $path_file) = $self->splitpath($path);
465     return $self->canonpath( $path ) unless lc($path_volume) eq lc($base_volume);
504     my ($path,$base ) = @_;
505     return undef unless defined $path;
506     if ($path =~ m/\//) {
507        $path = ( -d $path || $path =~ m/\/\z/  # educated guessing about
508                   ? vmspath($path)             # whether it's a directory
509                   : vmsify($path) );
513     # Clean up and split up $path
514     if ( ! $self->file_name_is_absolute( $path ) ) {
528             ($self->splitpath( $path ))[1,2] ;
543         $path = $self->catpath( $base_volume, $base_directories, $path_file );
546     return $self->canonpath( $path ) ;