diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-01 15:11:45 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-01 15:11:45 +0000 |
| commit | effb733c2c164cbc7c03be8db41885a0625a84de (patch) | |
| tree | ec505708717a5c5e92fc4d1d64b4803596989958 /lib/File | |
| parent | df2f6354ec75c3a7d7d07975479b72910dca7931 (diff) | |
| download | perl-effb733c2c164cbc7c03be8db41885a0625a84de.tar.gz | |
Update to File::Spec 0.90
p4raw-id: //depot/perl@23247
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Spec.pm | 2 | ||||
| -rw-r--r-- | lib/File/Spec/VMS.pm | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm index 1e282054bf..93e363d583 100644 --- a/lib/File/Spec.pm +++ b/lib/File/Spec.pm @@ -3,7 +3,7 @@ package File::Spec; use strict; use vars qw(@ISA $VERSION); -$VERSION = '0.88'; +$VERSION = '0.90'; $VERSION = eval $VERSION; my %module = (MacOS => 'Mac', diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index 82d639f3f1..c81c625604 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -477,7 +477,11 @@ sub rel2abs { my $self = shift ; my ($path,$base ) = @_; return undef unless defined $path; - $path = vmsify($path) if $path =~ m/\//; + if ($path =~ m/\//) { + $path = ( -d $path || $path =~ m/\/\z/ # educated guessing about + ? vmspath($path) # whether it's a directory + : vmsify($path) ); + } $base = vmspath($base) if defined $base && $base =~ m/\//; # Clean up and split up $path if ( ! $self->file_name_is_absolute( $path ) ) { |