[patch@31701] /lib/File/Find/t/taint.t - VMS Symlinks Part 3 of ?

	From: "John E. Malmberg" <wb8tyw@qsl.net>
	Message-id: <46C10909.6010805@qsl.net>

p4raw-id: //depot/perl@31714

diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t
index 91fe8ee..32c63f5 100644 (file)
--- a/lib/File/Find/t/taint.t
+++ b/lib/File/Find/t/taint.t
@@ -104,6 +104,7 @@ sub wanted_File_Dir {
     print "# \$File::Find::dir => '$File::Find::dir'\n";
     print "# \$_ => '$_'\n";
     s#\.$## if ($^O eq 'VMS' && $_ ne '.');
+    s/(.dir)?$//i if ($^O eq 'VMS' && -d _);
        ok( $Expect_File{$_}, "Expected and found $File::Find::name" );
     if ( $FastFileTests_OK ) {
         delete $Expect_File{ $_}
@@ -159,7 +160,9 @@ sub dir_path {
 
     } else { # $first_arg ne '.'
         return $first_arg unless @_; # return plain filename
-        return File::Spec->catdir($first_arg, @_); # relative path
+       my $fname = File::Spec->catdir($first_arg, @_); # relative path
+       $fname = VMS::Filespec::unixpath($fname) if $^O eq 'VMS';
+        return $fname;
     }
 }
 
@@ -207,7 +210,9 @@ sub file_path {
 
     } else { # $first_arg ne '.'
         return $first_arg unless @_; # return plain filename
-        return File::Spec->catfile($first_arg, @_); # relative path
+       my $fname = File::Spec->catfile($first_arg, @_); # relative path
+       $fname = VMS::Filespec::unixify($fname) if $^O eq 'VMS';
+        return $fname;
     }
 }