From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 31 Aug 2012 16:21:58 +0000 (-0500)
Subject: Make new File::Copy test case insensitive.
X-Git-Tag: upstream/5.20.0~5528
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c83aeb2147ff071bd19bb70219b6e5f20757efa5;p=platform%2Fupstream%2Fperl.git

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
--- 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;
 }