From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 1 Sep 2004 15:11:45 +0000 (+0000)
Subject: Update to File::Spec 0.90
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=effb733c2c164cbc7c03be8db41885a0625a84de;p=p5sagit%2Fp5-mst-13.2.git

Update to File::Spec 0.90

p4raw-id: //depot/perl@23247
---

diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index 1e28205..93e363d 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 82d639f..c81c625 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 ) ) {