(was Re: Why t/lib/extutils.t is failing ...

[p5sagit/p5-mst-13.2.git] / t / lib / io_sock.t

diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t
index 38292a7..b752fd8 100755 (executable)
--- a/t/lib/io_sock.t
+++ b/t/lib/io_sock.t
@@ -32,6 +32,11 @@ BEGIN {
 $| = 1;
 print "1..20\n";
 
+eval {
+    $SIG{ALRM} = sub { die; };
+    alarm 120;
+};
+
 use IO::Socket;
 
 $listen = IO::Socket::INET->new(Listen => 2,