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

[John E. Malmberg]

In lib/File/Find/t/taint.t :

Pathnames used for the keys to the hash need to be in UNIX format.

Need to drop the ".dir" on directory names returned.

Now passing 45 of 45 tests on VMS 8.3 with symbolic link support.

-John
[EMAIL PROTECTED]
Personal Opinion Only

--- /rsync_root/perl/lib/File/Find/t/taint.t    Tue Jun 13 14:29:14 2006
+++ lib/File/Find/t/taint.t     Mon Aug 13 20:32:39 2007
@@ -104,6 +104,7 @@
     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 @@
 
     } 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 @@
 
     } 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;
     }
 }