Remove an inadvertent case sensitivity from find.t.

[perl5.git] / lib / File / Find / t / find.t

diff --git a/lib/File/Find/t/find.t b/lib/File/Find/t/find.t
index 87306cc..96a1000 100644 (file)
--- a/lib/File/Find/t/find.t
+++ b/lib/File/Find/t/find.t
@@ -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};
     }