--- AnyEvent/t/handle/03_http_req.t	2008/04/27 16:56:17	1.1
+++ AnyEvent/t/handle/03_http_req.t	2008/04/27 19:36:55	1.3
@@ -1,9 +1,18 @@
 #!/opt/perl/bin/perl
+
 use strict;
-use Test::More tests => 2;
+use Test::More;
+use AnyEvent::Impl::Perl;
 use AnyEvent;
 use AnyEvent::Socket;
 
+unless ($ENV{PERL_ANYEVENT_NET_TESTS}) {
+   plan skip_all => "PERL_ANYEVENT_NET_TESTS environment variable not set";
+   exit 0;
+}
+
+plan tests => 2;
+
 my $cv = AnyEvent->condvar;
 
 my $fbytes;