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 (file)
--- 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);