projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2aa1bed
)
tweak test in change#4757 for Windows
author
Gurusamy Sarathy
<gsar@cpan.org>
Thu, 6 Jan 2000 04:09:00 +0000
(
04:09
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Thu, 6 Jan 2000 04:09:00 +0000
(
04:09
+0000)
p4raw-link: @4757 on //depot/perl:
faecd977681fb50ecb4b9174f76ac49d0d9e21c7
p4raw-id: //depot/perl@4762
t/io/open.t
patch
|
blob
|
history
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;
}