X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ec68f363483885ed31575a17dede3de9e3bc91da..8ac1de083da3f4d7b4dfcda5fc1ab646e9e13bd6:/t/lib/glob-basic.t

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index be3280c..25edde3 100755
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -39,7 +39,7 @@ print "ok 2\n";
 
 # look up the user's home directory
 # should return a list with one item, and not set ERROR
-if ($^O ne 'MSWin32' && $^O ne 'VMS' && $^O ne 'cygwin') {
+if ($^O ne 'MSWin32' && $^O ne 'VMS') {
   eval {
     ($name, $home) = (getpwuid($>))[0,7];
     1;
@@ -101,6 +101,13 @@ print "ok 7\n";
     '{TES*,doesntexist*,a,b}',
     GLOB_BRACE | GLOB_NOMAGIC | ($^O eq 'VMS' ? GLOB_NOCASE : 0)
 );
+
+# 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')
         and $a[1] eq 'a'