Change 17719 by [EMAIL PROTECTED] on 2002/08/12 12:03:53
Subject: [perl #15987] Tests fail when sources are under CVS control
From: Warren Jones (via RT) <[EMAIL PROTECTED]>
Date: 5 Aug 2002 19:08:50 -0000 (Mon 20:08 BST)
Message-id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/strict.t#6 edit
.... //depot/perl/lib/warnings.t#12 edit
Differences ...
==== //depot/perl/lib/strict.t#6 (text) ====
Index: perl/lib/strict.t
--- perl/lib/strict.t#5~16882~ Thu May 30 06:29:13 2002
+++ perl/lib/strict.t Mon Aug 12 05:03:53 2002
@@ -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 (<F>) {
==== //depot/perl/lib/warnings.t#12 (text) ====
Index: perl/lib/warnings.t
--- perl/lib/warnings.t#11~16882~ Thu May 30 06:29:13 2002
+++ perl/lib/warnings.t Mon Aug 12 05:03:53 2002
@@ -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;
End of Patch.
