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 e6ceb935c1e6c6f4095f99f87abff58bbbc4e814..f92fba27f46125c456327947a136118881187069 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);