diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-04-14 23:05:32 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-15 21:30:19 +0000 |
| commit | dd69b62cec547dc0162db14f1d9a0bb499a8fa04 (patch) | |
| tree | 2a084afa313f34cf3f843eca134f7598af9550f5 /t/pragma/warnings.t | |
| parent | 007a26ab2be0b873237f3a61ccecf090ddb56db1 (diff) | |
| download | perl-dd69b62cec547dc0162db14f1d9a0bb499a8fa04.tar.gz | |
Doesn't skip RCS files
Message-ID: <20010414220531.A30178@blackrider.blackstar.co.uk>
p4raw-id: //depot/perl@9710
Diffstat (limited to 't/pragma/warnings.t')
| -rw-r--r-- | t/pragma/warnings.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/pragma/warnings.t b/t/pragma/warnings.t index e2c7500582..591f0399ab 100644 --- a/t/pragma/warnings.t +++ b/t/pragma/warnings.t @@ -27,7 +27,7 @@ else my $files = 0; foreach my $file (@w_files) { - next if /(~|\.orig|,v)$/; + next if $file =~ /(~|\.orig|,v)$/; open F, "<$file" or die "Cannot open $file: $!\n" ; my $line = 0; |