… | … | ||
---|---|---|---|
17 | $proc->_cmd (e => 'syswrite $arg[0], "173\n"'); | 17 | $proc->_cmd (e => 'syswrite $arg[0], "173\n"'); |
18 | { my $w = AE::io $r, 0, my $cv = AE::cv; $cv->recv } | 18 | { my $w = AE::io $r, 0, my $cv = AE::cv; $cv->recv } |
19 | 19 | ||
20 | print "ok 6\n"; | 20 | print "ok 6\n"; |
21 | 21 | ||
22 | close $w; | ||
22 | print <$r> eq "173\n" ? "" : "not ", "ok 7\n"; | 23 | print <$r> eq "173\n" ? "" : "not ", "ok 7\n"; |
23 | 24 | ||
24 | print "ok 8\n"; | 25 | print "ok 8\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |