From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 28 Sep 2001 16:24:51 +0000 (-0500)
Subject: glob test case tweak for VMS
X-Git-Tag: accepted/trunk/20130322.191538~30074
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c065ed1804205b3f51c06fad76afe770afd952ab;p=platform%2Fupstream%2Fperl.git

glob test case tweak for VMS
Message-Id: <a05101000b7da98ceb83c@[172.16.52.1]>

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

diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t
index fe844b2..65fa36a 100755
--- a/ext/File/Glob/t/basic.t
+++ b/ext/File/Glob/t/basic.t
@@ -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";
 }