--- AnyEvent/t/handle/04_listen.t	2009/07/24 22:47:04	1.16
+++ AnyEvent/t/handle/04_listen.t	2010/12/29 04:16:35	1.17
@@ -2,10 +2,10 @@
 
 use strict;
 
-use AnyEvent::Impl::Perl;
+use AnyEvent;
+BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} }
 use AnyEvent::Handle;
 use AnyEvent::Socket;
-use AnyEvent;
 
 my $lbytes;
 my $rbytes;