diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-09-09 05:54:41 -0400 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-09-10 18:27:37 +0000 |
commit | a6c9a8153fb7a55ac70f2d697cf6020eee8fc5f6 (patch) | |
tree | 68a927469d2dfe818bfd411e0e616646fb40e648 /t/test.pl | |
parent | 6516816e47c48d6752c841c921064c20e02a4ba5 (diff) | |
download | perl-a6c9a8153fb7a55ac70f2d697cf6020eee8fc5f6.tar.gz |
Watchdog re-queue
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510809090654v2de48f1r37499d573f452cdb@mail.gmail.com>
Date: Tue, 9 Sep 2008 09:54:41 -0400
p4raw-id: //depot/perl@34337
Diffstat (limited to 't/test.pl')
-rw-r--r-- | t/test.pl | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -909,12 +909,10 @@ sub watchdog ($) eval { require POSIX; }; # Execute the timeout - my $time_elapsed = 0; my $time_left = $timeout; - while ($time_elapsed < $timeout) { - $time_elapsed += sleep($time_left); - $time_left = $timeout - $time_elapsed; - } + do { + $time_left -= sleep($time_left); + } while ($time_left > 0); # Kill the parent (and ourself) select(STDERR); $| = 1; |