diff options
| -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__/ ; |