diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-07-23 08:20:55 -0400 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-07-23 16:34:29 +0000 |
| commit | ed272d6f374576ac4cb7c9ae72b0f522ccc5516e (patch) | |
| tree | 4c9ad2030ecd8d4b8c916ec864b560e7a4204564 | |
| parent | 2d4a14fe014e68c025e5bc1de990575528c46d6f (diff) | |
| download | perl-ed272d6f374576ac4cb7c9ae72b0f522ccc5516e.tar.gz | |
Add watchdog() call to ext/IO/t/io_multihomed.t
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510807230920o6414d5abu393a5cd293c6fa4f@mail.gmail.com>
p4raw-id: //depot/perl@34155
| -rw-r--r-- | ext/IO/t/io_multihomed.t | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/ext/IO/t/io_multihomed.t b/ext/IO/t/io_multihomed.t index 3560d7be1c..ec1cb2bb22 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; |