stop unrestricted negativity in HiRes.t
authorCraig A. Berry <craigberry@mac.com>
Sat, 3 Nov 2001 16:02:28 +0000 (10:02 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 3 Nov 2001 21:14:34 +0000 (21:14 +0000)
Message-Id: <5.1.0.14.2.20011103155539.03e44c60@exchi01>

p4raw-id: //depot/perl@12837

ext/Time/HiRes/HiRes.t

index e6ceb93..f92fba2 100644 (file)
@@ -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);