From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 6 Jan 2000 04:09:00 +0000 (+0000)
Subject: tweak test in change#4757 for Windows
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed2efe3e534db47ab310221fbc01d92a689e5554;p=p5sagit%2Fp5-mst-13.2.git

tweak test in change#4757 for Windows

p4raw-link: @4757 on //depot/perl: faecd977681fb50ecb4b9174f76ac49d0d9e21c7

p4raw-id: //depot/perl@4762
---

diff --git a/t/io/open.t b/t/io/open.t
index 7085084..1e94091 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -262,8 +262,16 @@ ok;
 # 65..66
 {
     local *F;
-    for (1..2) { open(F, "echo #foo|") or print "not "; }
-    ok;
-    for (1..2) { open(F, "-|", "echo #foo") or print "not "; }
+    for (1..2) {
+        open(F, "echo #foo|") or print "not ";
+	print <F>;
+	close F;
+    }
+    ok;
+    for (1..2) {
+	open(F, "-|", "echo #foo") or print "not ";
+	print <F>;
+	close F;
+    }
     ok;
 }