--- AnyEvent/t/03_child.t	2007/11/03 09:35:20	1.3
+++ AnyEvent/t/03_child.t	2007/11/25 13:53:04	1.6
@@ -1,7 +1,8 @@
 $|=1;
-BEGIN { print "1..5\n" }
+BEGIN { print "1..7\n" }
 
 use AnyEvent;
+use AnyEvent::Impl::Perl;
 
 print "ok 1\n";
 
@@ -10,7 +11,7 @@
 defined $pid or die "unable to fork";
 
 # work around Tk bug until it has been fixed.
-my $timer = AnyEvent->timer (after => 2, cb => sub { });
+#my $timer = AnyEvent->timer (after => 2, cb => sub { });
 
 my $cv = AnyEvent->condvar;