From ed2efe3e534db47ab310221fbc01d92a689e5554 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 6 Jan 2000 04:09:00 +0000 Subject: [PATCH] tweak test in change#4757 for Windows p4raw-link: @4757 on //depot/perl: faecd977681fb50ecb4b9174f76ac49d0d9e21c7 p4raw-id: //depot/perl@4762 --- t/io/open.t | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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 ; + close F; + } + ok; + for (1..2) { + open(F, "-|", "echo #foo") or print "not "; + print ; + close F; + } ok; } -- 2.7.4