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 (file)
--- 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"