[prev in list] [next in list] [prev in thread] [next in thread]
List: perl5-changes
Subject: Change 34155: [PATCH] Add watchdog() call to ext/IO/t/io_multihomed.t
From: Steve Hay <SteveHay () planit ! com>
Date: 2008-07-23 16:45:02
Message-ID: 20080723164502.9A08F50045 () mx ! activestate ! com
[Download RAW message or body]
Change 34155 by steveh@maldoror on 2008/07/23 16:34:29
Subject: [PATCH] Add watchdog() call to ext/IO/t/io_multihomed.t
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Wed, 23 Jul 2008 12:20:55 -0400
Message-ID: <1ff86f510807230920o6414d5abu393a5cd293c6fa4f@mail.gmail.com>
Affected files ...
... //depot/perl/ext/IO/t/io_multihomed.t#5 edit
Differences ...
==== //depot/perl/ext/IO/t/io_multihomed.t#5 (text) ====
Index: perl/ext/IO/t/io_multihomed.t
--- perl/ext/IO/t/io_multihomed.t#4~27718~ 2006-04-05 03:35:58.000000000 -0700
+++ perl/ext/IO/t/io_multihomed.t 2008-07-23 09:34:29.000000000 -0700
@@ -5,11 +5,10 @@
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 @@
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;
End of Patch.
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic