diff options
| author | Peter J. Farley III <pjfarley@banet.net> | 2000-10-25 19:10:18 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-26 04:50:52 +0000 |
| commit | 9bd2dfe84bc2137e6bdbd3206dce8eb5e0fdf601 (patch) | |
| tree | 214ba7f2da90da65be6928be92bf2feb833eb768 /t | |
| parent | 63ef616ebcea0b2730447538dc11b85c8c9bde1b (diff) | |
| download | perl-9bd2dfe84bc2137e6bdbd3206dce8eb5e0fdf601.tar.gz | |
[ID 20001025.011] [PATCH] t/io/open.t perl@7369[ 7350] breaks VMS perl
Message-Id: <4.3.1.0.20001025230222.00accba0@pop5.banet.net>
p4raw-id: //depot/perl@7450
Diffstat (limited to 't')
| -rwxr-xr-x | t/io/open.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/io/open.t b/t/io/open.t index 01902812e2..0e2d57cd75 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -9,6 +9,7 @@ BEGIN { $| = 1; use warnings; $Is_VMS = $^O eq 'VMS'; +$Is_Dos = $^O eq 'dos'; print "1..66\n"; @@ -268,13 +269,21 @@ ok; { local *F; for (1..2) { + if ($Is_Dos) { open(F, "echo \\#foo|") or print "not "; + } else { + open(F, "echo #foo|") or print "not "; + } print <F>; close F; } ok; for (1..2) { + if ($Is_Dos) { open(F, "-|", "echo \\#foo") or print "not "; + } else { + open(F, "-|", "echo #foo") or print "not "; + } print <F>; close F; } |