From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 3 Sep 2003 04:31:35 +0000 (+0000)
Subject: VMS does not have quite UNIX glob semantics.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e344bad3baf2bf2e0915ab481c789fd45967284b;p=p5sagit%2Fp5-mst-13.2.git

VMS does not have quite UNIX glob semantics.

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

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index 081c386..d8cc862 100644
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -824,18 +824,32 @@ EXPECT
 foo at - line 1.
 ######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <200309010925.h819Pf0X011457@smtp3.ActiveState.com>
 -lw
+if ($^O eq 'VMS') { # VMS is not *that* kind of a glob.
+print <<__EOF__;
+./"TEST"
+./"TEST"
+__EOF__
+} else {
 print glob(q(./"TEST"));
 use File::Glob;
 print glob(q(./"TEST"));
+}
 EXPECT
 ./"TEST"
 ./"TEST"
 ######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <200309010925.h819Pf0X011457@smtp3.ActiveState.com>
 -lw
+if ($^O eq 'VMS') { # VMS is not *that* kind of a glob.
+print <<__EOF__;
+./"TEST"
+./"TEST"
+__EOF__
+} else {
 use File::Glob;
 print glob(q(./"TEST"));
 use File::Glob;
 print glob(q(./"TEST"));
+}
 EXPECT
 ./"TEST"
 ./"TEST"