From ed272d6f374576ac4cb7c9ae72b0f522ccc5516e Mon Sep 17 00:00:00 2001 From: "Jerry D. Hedden" Date: Wed, 23 Jul 2008 08:20:55 -0400 Subject: [PATCH] Add watchdog() call to ext/IO/t/io_multihomed.t From: "Jerry D. Hedden" Message-ID: <1ff86f510807230920o6414d5abu393a5cd293c6fa4f@mail.gmail.com> p4raw-id: //depot/perl@34155 --- ext/IO/t/io_multihomed.t | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/ext/IO/t/io_multihomed.t b/ext/IO/t/io_multihomed.t index 3560d7b..ec1cb2b 100644 --- a/ext/IO/t/io_multihomed.t +++ b/ext/IO/t/io_multihomed.t @@ -5,11 +5,10 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } -} -use Config; + require($ENV{PERL_CORE} ? './test.pl' : './t/test.pl'); -BEGIN { + use Config; my $can_fork = $Config{d_fork} || (($^O eq 'MSWin32' || $^O eq 'NetWare') and $Config{useithreads} and @@ -25,20 +24,13 @@ BEGIN { elsif (!$can_fork) { $reason = 'no fork'; } - if ($reason) { - print "1..0 # Skip: $reason\n"; - exit 0; - } + skip_all($reason) if $reason; } $| = 1; print "1..8\n"; - -eval { - $SIG{ALRM} = sub { die; }; - alarm 60; -}; +watchdog(15); package Multi; require IO::Socket::INET; -- 2.7.4