From: Peter J. Farley III Date: Wed, 25 Oct 2000 23:10:18 +0000 (-0400) Subject: [ID 20001025.011] [PATCH] t/io/open.t perl@7369[ 7350] breaks VMS perl X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6c71b5b9462db13c7bb2cd263cee5995315784c;p=p5sagit%2Fp5-mst-13.2.git [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 --- diff --git a/t/io/open.t b/t/io/open.t index 0190281..0e2d57c 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 ; 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 ; close F; }