From a6c71b5b9462db13c7bb2cd263cee5995315784c Mon Sep 17 00:00:00 2001 From: "Peter J. Farley III" Date: Wed, 25 Oct 2000 19:10:18 -0400 Subject: [PATCH] [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 --- t/io/open.t | 9 +++++++++ 1 file changed, 9 insertions(+) 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; } -- 2.7.4