From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 30 Mar 2001 03:53:37 +0000 (+0000)
Subject: Add timeouts to the tests.  (In AIX 4.3.1.0 + vac 5.0.0.0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=560d348bc3a3e610f08785351e54ac15124e2349;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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,