Make new File::Copy test case insensitive.

On VMS with default setttings, the filename is reported as copy.t,
not Copy.t, so make the regex allow that.

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 8108caf..ded1b57 100644 (file)
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -492,7 +492,7 @@ SKIP: {
     local $SIG{__WARN__} = sub { $warn_message .= "@_" };
     ok(!copy($temp_file, $temp_dir),
        "Copy of foo/file to foo/ should fail");
-    like($warn_message, qr/^\Q'$temp_file' and '$temp_file'\E are identical.*Copy\.t/,
+    like($warn_message, qr/^\Q'$temp_file' and '$temp_file'\E are identical.*Copy\.t/i,
         "error message should describe the problem");
     1 while unlink $temp_file;
 }