From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 19 Feb 2001 23:36:12 +0000 (-0600)
Subject: glob-basic.t, runenv.t fix-ups
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fa0c281d33904ea68dd99db7ecfc2e9e4b0aeeb;p=p5sagit%2Fp5-mst-13.2.git

glob-basic.t, runenv.t fix-ups
Message-Id: <5.0.2.1.0.20010219230450.02762648@exchi01>

Case-forgiving systems match TestInit.pm with TES*.

p4raw-id: //depot/perl@8849
---

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