From: Chip Salzenberg <chip@perl.com>
Date: Wed, 15 Jan 1997 03:42:51 +0000 (+1200)
Subject: Ignore backup files in strict.t and warning.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8b8f155f8db246fedcbc36ea9ae6374f7033c78;p=p5sagit%2Fp5-mst-13.2.git

Ignore backup files in strict.t and warning.t
---

diff --git a/t/pragma/strict.t b/t/pragma/strict.t
index 0ff849e..7585697 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 3cb5c73..3bb70e3 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__/ ;