--- AnyEvent/t/handle/02_write.t	2008/07/04 12:21:58	1.8
+++ AnyEvent/t/handle/02_write.t	2010/12/29 04:16:34	1.9
@@ -2,7 +2,8 @@
 
 use strict;
 
-use AnyEvent::Impl::Perl;
+use AnyEvent;
+BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} }
 use AnyEvent::Handle;
 use Socket;