This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
VMS does not have quite UNIX glob semantics.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 3 Sep 2003 04:31:35 +0000 (04:31 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 3 Sep 2003 04:31:35 +0000 (04:31 +0000)
p4raw-id: //depot/perl@21008

t/run/fresh_perl.t

index 081c386..d8cc862 100644 (file)
@@ -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"