diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-08-31 11:21:58 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-08-31 11:23:07 -0500 |
| commit | c83aeb2147ff071bd19bb70219b6e5f20757efa5 (patch) | |
| tree | e0c0dbfef6b5330809b1a0e9e090855c8eb53bd5 /lib/File | |
| parent | 29a45343ab0bee876c2f5b3b8a342d58719af28e (diff) | |
| download | perl-c83aeb2147ff071bd19bb70219b6e5f20757efa5.tar.gz | |
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.
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Copy.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Copy.t b/lib/File/Copy.t index 8108caf0b8..ded1b57f4f 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; } |