p5pRT
commented
21 years ago From wjones@tc.fluke.com
Created by wjones@tc.fluke.com
Two test scripts may fail when the Perl sources are under CVS control:
lib/strict.t lib/warnings.t
On win32 systems\, the scripts die when they try to open the CVS directory as a file. These are the error messages:
Cannot open lib/strict/CVS: Permission denied Cannot open lib\warnings\CVS: Permission denied
This seems to be harmless on Unix systems. Here's a patch:
Index: strict.t
RCS file: /usr0/sweng/src/active/CVS.repo/perl/lib/strict.t\,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 strict.t --- strict.t 2002/07/29 16:21:01 1.1.1.1 +++ strict.t 2002/08/05 18:47:11 @@ -20\,7 +20\,7 @@
foreach (sort glob($^O eq 'MacOS' ? ":lib:strict:*" : "lib/strict/*")) {
- next if /(~|\.orig|\,v)$/; + next if -d || /(~|\.orig|\,v)$/;
open F\, "\<$_" or die "Cannot open $_: $!\n" ;
while (\) {
Index: warnings.t
RCS file: /usr0/sweng/src/active/CVS.repo/perl/lib/warnings.t\,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 warnings.t --- warnings.t 2002/07/29 16:20:54 1.1.1.1 +++ warnings.t 2002/08/05 18:46:49 @@ -40\,6 +40\,7 @@
next if $file =~ /(~|\.orig|\,v)$/; next if $file =~ /perlio$/ && !(find PerlIO::Layer 'perlio'); + next if -d $file;
open F\, "\<$file" or die "Cannot open $file: $!\n" ; my $line = 0;
Migrated from rt.perl.org#15987 (status was 'resolved')
Searchable as RT15987$