This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
glob test case tweak for VMS
authorCraig A. Berry <craigberry@mac.com>
Fri, 28 Sep 2001 16:24:51 +0000 (11:24 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 28 Sep 2001 22:23:53 +0000 (22:23 +0000)
Message-Id: <a05101000b7da98ceb83c@[172.16.52.1]>

p4raw-id: //depot/perl@12262

ext/File/Glob/t/basic.t

index fe844b2..65fa36a 100755 (executable)
@@ -110,6 +110,7 @@ print "ok 7\n";
 # 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;
+@a = (grep !/test.pl/, @a) if $^O eq 'VMS';
 
 print "# @a\n";
 
@@ -118,7 +119,7 @@ unless (@a == 3
         and $a[1] eq 'a'
         and $a[2] eq 'b')
 {
-    print "not ok 8 # @a";
+    print "not ok 8 # @a\n";
 } else {
     print "ok 8\n";
 }