diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-09-28 11:24:51 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-28 22:23:53 +0000 |
| commit | c065ed1804205b3f51c06fad76afe770afd952ab (patch) | |
| tree | 17079e481784748808d247b6d650e7cdf1f4ce27 /ext/File | |
| parent | 042e981a9d7db562893cb666e399d7ed2acc518d (diff) | |
| download | perl-c065ed1804205b3f51c06fad76afe770afd952ab.tar.gz | |
glob test case tweak for VMS
Message-Id: <a05101000b7da98ceb83c@[172.16.52.1]>
p4raw-id: //depot/perl@12262
Diffstat (limited to 'ext/File')
| -rwxr-xr-x | ext/File/Glob/t/basic.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t index fe844b2b0d..65fa36a6b1 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"; } |