Re: forewarning: usedevel and versiononly

[p5sagit/p5-mst-13.2.git] / ext / Time / HiRes / HiRes.t

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index c09eaa7..e246d82 100644 (file)
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -128,24 +128,14 @@ else {
     my $tick = 0;
     local $SIG{ALRM} = sub { $tick++ };
 
-    # This was previously written sleep 3 until $tick;
-    # But there is a small race condition here: the alarm may go off
-    # until ($tick) { Here!; sleep }
-    # In which case the sleep is forever.
-    # sleeping for 3 seconds will cause the test to fail but it's better than
-    # infinite hang. [Until someone produces a platform where sleep interferes
-    # with ualarm, in which case a more sophisticated self destruct will need
-    # to be written (eg fork, child sleeps for a long time, child kills parent
-    # if parent doesn't finish first (killing child))]
-        
-    my $one = time; $tick = 0; ualarm(10_000); sleep 3 until $tick;
-    my $two = time; $tick = 0; ualarm(10_000); sleep 3 until $tick;
+    my $one = time; $tick = 0; ualarm(10_000); sleep until $tick;
+    my $two = time; $tick = 0; ualarm(10_000); sleep until $tick;
     my $three = time;
     ok 12, $one == $two || $two == $three, "slept too long, $one $two $three";
 
     $tick = 0;
     ualarm(10_000, 10_000);
-    sleep 3 until $tick >= 3;
+    sleep until $tick >= 3;
     ok 13, 1;
     ualarm(0);
 }