--- AnyEvent-Fork/t/03_new.t	2013/04/04 00:27:06	1.1
+++ AnyEvent-Fork/t/03_new.t	2013/04/04 03:45:13	1.3
@@ -1,4 +1,4 @@
-BEGIN { $| = 1; print "1..8\n"; }
+BEGIN { $| = 1; print "1..9\n"; }
 
 use AnyEvent::Fork;
 
@@ -14,11 +14,18 @@
 print +(my ($r, $w) = AnyEvent::Util::portable_pipe) ? "" : "not ", "ok 5\n";
 
 $proc->send_fh ($w);
-$proc->_cmd (e => 'syswrite $arg[0], "173\n"');
+$proc->eval ('syswrite $arg[0], "173"');
+undef $w;
+
 { my $w = AE::io $r, 0, my $cv = AE::cv; $cv->recv }
 
 print "ok 6\n";
 
-print <$r> eq "173\n" ? "" : "not ", "ok 7\n";
+undef $proc;
+
+print "ok 7\n";
+
+$r = <$r>;
+print $r eq "173" ? "" : "not ", "ok 8 # $r\n";
 
-print "ok 8\n";
+print "ok 9\n";