This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove an inadvertent case sensitivity from find.t.
authorCraig A. Berry <craigberry@mac.com>
Sun, 11 Nov 2012 14:02:31 +0000 (08:02 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 11 Nov 2012 14:02:31 +0000 (08:02 -0600)
The extension of a VMS directory may be presented as .DIR or .dir
depending on various settings and its actual name on disk.

lib/File/Find/t/find.t

index 87306cc..96a1000 100644 (file)
@@ -212,7 +212,7 @@ sub my_preprocess {
     print "# --preprocess--\n";
     print "#   \$File::Find::dir => '$File::Find::dir' \n";
     foreach $file (@files) {
-        $file =~ s/\.(dir)?$// if $^O eq 'VMS';
+        $file =~ s/\.(dir)?$//i if $^O eq 'VMS';
         print "#   $file \n";
         delete $Expect_Dir{ $File::Find::dir }->{$file};
     }