From 9bd2dfe84bc2137e6bdbd3206dce8eb5e0fdf601 Mon Sep 17 00:00:00 2001
From: "Peter J. Farley III" <pjfarley@banet.net>
Date: Wed, 25 Oct 2000 19:10:18 -0400
Subject: [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(+)

(limited to 't')

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;
     }
-- 
cgit v1.2.1