If no alarm(), skip the subtests.

p4raw-id: //depot/perl@20542

diff --git a/ext/Time/HiRes/t/HiRes.t b/ext/Time/HiRes/t/HiRes.t
index 9f6239a..3afefbe 100644 (file)
--- a/ext/Time/HiRes/t/HiRes.t
+++ b/ext/Time/HiRes/t/HiRes.t
@@ -131,7 +131,7 @@ else {
     ok 11, $f > 0.4 && $f < 0.9, "slept $f instead of 0.5 secs.";
 }
 
-if (!$have_ualarm) {
+if (!$have_ualarm || !$Config{d_alarm}) {
     skip 12..13;
 }
 else {