--- AnyEvent/t/03_child.t	2007/11/09 19:34:32	1.4
+++ AnyEvent/t/03_child.t	2007/11/25 13:53:04	1.6
@@ -2,6 +2,7 @@
 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;