Assimilate PathTools 3.01 (File::Spec and Cwd)

[perl5.git] / lib / File / Spec / VMS.pm

diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm
index c81c625..82d639f 100644 (file)
--- a/lib/File/Spec/VMS.pm
+++ b/lib/File/Spec/VMS.pm
@@ -477,11 +477,7 @@ sub rel2abs {
     my $self = shift ;
     my ($path,$base ) = @_;
     return undef unless defined $path;
-    if ($path =~ m/\//) {
-       $path = ( -d $path || $path =~ m/\/\z/  # educated guessing about
-                  ? vmspath($path)             # whether it's a directory
-                  : vmsify($path) );
-    }
+    $path = vmsify($path) if $path =~ m/\//;
     $base = vmspath($base) if defined $base && $base =~ m/\//;
     # Clean up and split up $path
     if ( ! $self->file_name_is_absolute( $path ) ) {