X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Fstrict.t;h=75856971fa2de9aa0ddbda1d625b94ff8d079d01;hb=d8b8f155f8db246fedcbc36ea9ae6374f7033c78;hp=0ff849e2bec4260d2a1ded3a958d430dc4c1c351;hpb=44a8e56aa037ed0f03f0506f6f85f5ed290c78e1;p=p5sagit%2Fp5-mst-13.2.git

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