--- EV/t/02_once.t	2007/11/23 13:08:57	1.2
+++ EV/t/02_once.t	2007/11/27 09:32:32	1.3
@@ -2,6 +2,7 @@
 
 no warnings;
 use strict;
+use Socket;
 
 use EV;
 
@@ -11,7 +12,9 @@
    };
 }
 
-EV::once 1, EV::WRITE, 0.5, sub {
+socketpair my $s1, my $s2, AF_UNIX, SOCK_STREAM, PF_UNSPEC;
+
+EV::once $s1, EV::WRITE, 0.5, sub {
    print $_[0] == EV::WRITE ? "" : "not ", "ok 2\n";
 };