X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fglob-basic.t;h=25edde32f2c22df6283f21ca4eafcf090e8d360e;hb=8ac1de083da3f4d7b4dfcda5fc1ab646e9e13bd6;hp=5094ff6aa1a643b0a43dab563174676283ea5b6d;hpb=d220deaf856c3cdabaa2d430105b75dfc20fe531;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index 5094ff6..25edde3 100755
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -102,9 +102,11 @@ print "ok 7\n";
     GLOB_BRACE | GLOB_NOMAGIC | ($^O eq 'VMS' ? GLOB_NOCASE : 0)
 );
 
-# Working on t/TEST often causes this test to fail because it sees temp
-# and RCS files.  Filter them out, and .pm files too.
-@a = grep !/(,v$|~$|\.pm$)/, @a;
+# Working on t/TEST often causes this test to fail because it sees Emacs temp
+# and RCS files.  Filter them out, and .pm files too, and patch temp files.
+@a = grep !/(,v$|~$|\.(pm|ori?g|rej)$)/, @a;
+
+print "# @a\n";
 
 unless (@a == 3
         and $a[0] eq ($^O eq 'VMS'? 'test.' : 'TEST')