diff options
| author | Warren Jones <wjones@tc.fluke.com> | 2002-08-05 19:08:50 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-12 12:03:53 +0000 |
| commit | cbc25c4293d5ee1c43b7996e79900570a0580df6 (patch) | |
| tree | f17a4e293ea2785ef7497971c09d2d7892cb6d76 /lib/strict.t | |
| parent | d672126634c5e568812ed35d4c8ea53a9a55ee4c (diff) | |
| download | perl-cbc25c4293d5ee1c43b7996e79900570a0580df6.tar.gz | |
[perl #15987] Tests fail when sources are under CVS control
From: Warren Jones (via RT) <perlbug@perl.org>
Message-id: <rt-15987-32864.15.6255441902154@bugs6.perl.org>
p4raw-id: //depot/perl@17719
Diffstat (limited to 'lib/strict.t')
| -rw-r--r-- | lib/strict.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/strict.t b/lib/strict.t index 02f191b9c5..80076fc67d 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -20,7 +20,7 @@ my @prgs = () ; 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>) { |