diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-03 04:31:35 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-03 04:31:35 +0000 |
| commit | e344bad3baf2bf2e0915ab481c789fd45967284b (patch) | |
| tree | 47386dee82b66f46e3ed2a3b84847de51234ca4f /t | |
| parent | 593b9c1462e1fc8a2425e215f64b2197e1bfb796 (diff) | |
| download | perl-e344bad3baf2bf2e0915ab481c789fd45967284b.tar.gz | |
VMS does not have quite UNIX glob semantics.
p4raw-id: //depot/perl@21008
Diffstat (limited to 't')
| -rw-r--r-- | t/run/fresh_perl.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index 081c38663e..d8cc862ff4 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" |