In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c83aeb2147ff071bd19bb70219b6e5f20757efa5?hp=f51152efb95ba4281387bc22b0734fb4c3ed3ad1>
- Log ----------------------------------------------------------------- commit c83aeb2147ff071bd19bb70219b6e5f20757efa5 Author: Craig A. Berry <[email protected]> Date: Fri Aug 31 11:21:58 2012 -0500 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. M lib/File/Copy.t commit 29a45343ab0bee876c2f5b3b8a342d58719af28e Author: Craig A. Berry <[email protected]> Date: Fri Aug 31 07:47:07 2012 -0500 Files ending in .eg are also non-pod. M t/porting/podcheck.t ----------------------------------------------------------------------- Summary of changes: lib/File/Copy.t | 2 +- t/porting/podcheck.t | 1 + 2 files changed, 2 insertions(+), 1 deletions(-) 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; } diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 8bc8a2a..5e1d019 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -400,6 +400,7 @@ my $non_pods = qr/ (?: \. | $lib_so # shared libraries | $dl_ext # dynamic libraries | gif # GIF images (example files from CGI.pm) + | eg # examples from libnet ) $ ) | ~$ | \ \(Autosaved\)\.txt$ # Other editor droppings -- Perl5 Master Repository
