Change 34155: [PATCH] Add watchdog() call to ext/IO/t/io_multihomed.t

[Steve Hay]

Change 34155 by [EMAIL PROTECTED] on 2008/07/23 16:34:29

        Subject: [PATCH] Add watchdog() call to ext/IO/t/io_multihomed.t
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Wed, 23 Jul 2008 12:20:55 -0400
        Message-ID: <[EMAIL PROTECTED]>

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.