integrate cfgperl changes into mainline

[p5sagit/p5-mst-13.2.git] / t / io / open.t

diff --git a/t/io/open.t b/t/io/open.t
index 7085084..1e94091 100755 (executable)
--- 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;
 }