Change 21008 by [EMAIL PROTECTED] on 2003/09/03 04:31:35
VMS does not have quite UNIX glob semantics.
Affected files ...
... //depot/perl/t/run/fresh_perl.t#25 edit
Differences ...
==== //depot/perl/t/run/fresh_perl.t#25 (text) ====
Index: perl/t/run/fresh_perl.t
--- perl/t/run/fresh_perl.t#24~20980~ Mon Sep 1 01:49:02 2003
+++ perl/t/run/fresh_perl.t Tue Sep 2 21:31:35 2003
@@ -824,18 +824,32 @@
foo at - line 1.
######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <[EMAIL PROTECTED]>
-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 <[EMAIL PROTECTED]>
-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"
End of Patch.
