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

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

diff --git a/t/lib/io_multihomed.t b/t/lib/io_multihomed.t
index 55030b5..62f25bc 100644 (file)
--- a/t/lib/io_multihomed.t
+++ b/t/lib/io_multihomed.t
@@ -32,6 +32,10 @@ $| = 1;
 
 print "1..8\n";
 
+eval {
+    $SIG{ALRM} = sub { die; };
+    alarm 60;
+};
 
 package Multi;
 require IO::Socket::INET;