Add timeouts to the tests. (In AIX 4.3.1.0 + vac 5.0.0.0

the tests sometimes hang, sometimes not.)

p4raw-id: //depot/perl@9465

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;

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,