diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-01-15 15:42:51 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-07 04:01:12 +1200 |
| commit | d8b8f155f8db246fedcbc36ea9ae6374f7033c78 (patch) | |
| tree | e636f8e4e8afba939f39fd745bce6000b7f6803e /t/pragma | |
| parent | 3d9caabd40a64fc765db33cde6b98e2a9c531c08 (diff) | |
| download | perl-d8b8f155f8db246fedcbc36ea9ae6374f7033c78.tar.gz | |
Ignore backup files in strict.t and warning.t
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/strict.t | 2 | ||||
| -rwxr-xr-x | t/pragma/warning.t | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/t/pragma/strict.t b/t/pragma/strict.t index 0ff849e2be..75856971fa 100755 --- a/t/pragma/strict.t +++ b/t/pragma/strict.t @@ -18,6 +18,8 @@ my @prgs = () ; foreach (sort glob("pragma/strict-*")) { + next if /(~|\.orig)$/; + open F, "<$_" or die "Cannot open $_: $!\n" ; while (<F>) { last if /^__END__/ ; diff --git a/t/pragma/warning.t b/t/pragma/warning.t index 3cb5c73569..3bb70e3ce8 100755 --- a/t/pragma/warning.t +++ b/t/pragma/warning.t @@ -18,6 +18,8 @@ my @prgs = () ; foreach (sort glob("pragma/warn-*")) { + next if /(~|\.orig)$/; + open F, "<$_" or die "Cannot open $_: $!\n" ; while (<F>) { last if /^__END__/ ; |