| … | … | ||
|---|---|---|---|
| 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 |