Change 34337: [PATCH] Watchdog re-queue

[Nicholas Clark]

Change 34337 by [EMAIL PROTECTED] on 2008/09/10 18:27:37

        Subject: [PATCH] Watchdog re-queue
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Message-ID: <[EMAIL PROTECTED]>
        Date: Tue, 9 Sep 2008 09:54:41 -0400

Affected files ...

... //depot/perl/t/test.pl#89 edit

Differences ...

==== //depot/perl/t/test.pl#89 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#88~34316~    2008-09-07 19:41:04.000000000 -0700
+++ perl/t/test.pl      2008-09-10 11:27:37.000000000 -0700
@@ -909,12 +909,10 @@
                 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;
End of Patch.