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/warnings.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/warnings.t')
| -rw-r--r-- | lib/warnings.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index 8e57a6db59..0e65da992b 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -40,6 +40,7 @@ foreach my $file (@w_files) { 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; |