(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 7337a5f..62f25bc 100644 (file)
--- a/t/lib/io_multihomed.t
+++ b/t/lib/io_multihomed.t
@@ -3,7 +3,7 @@
 BEGIN {
     unless(grep /blib/, @INC) {
        chdir 't' if -d 't';
-       unshift @INC, '../lib' if -d '../lib';
+       @INC = '../lib';
     }
 }
 
@@ -32,6 +32,10 @@ $| = 1;
 
 print "1..8\n";
 
+eval {
+    $SIG{ALRM} = sub { die; };
+    alarm 60;
+};
 
 package Multi;
 require IO::Socket::INET;