From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 3 Nov 2001 16:02:28 +0000 (-0600)
Subject: stop unrestricted negativity in HiRes.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ea166ef7598ba0d1f4cc550b4aa343e904c43fe;p=p5sagit%2Fp5-mst-13.2.git

stop unrestricted negativity in HiRes.t
Message-Id: <5.1.0.14.2.20011103155539.03e44c60@exchi01>

p4raw-id: //depot/perl@12837
---

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index e6ceb93..f92fba2 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -167,7 +167,7 @@ unless (defined &Time::HiRes::gettimeofday
     $r = [Time::HiRes::gettimeofday()];
     $i = 5;
     $SIG{ALRM} = "tick";
-    while ($i)
+    while ($i > 0)
     {
 	alarm(0.3);
 	select (undef, undef, undef, 10);