From c46d503802f31479fba8780314217baa664936af Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 26 Oct 2001 14:39:06 +0000
Subject: [PATCH] Time::HiRes::alarm() ain't gonna work either if ualarm()
 ain't

p4raw-id: //depot/perl@12692
---
 ext/Time/HiRes/HiRes.t | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index d0300be..0d509f3 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -237,14 +237,15 @@ eval { usleep(-2) };
 print $@ =~ /::usleep\(-2\): negative time not invented yet/ ?
     "ok 23\n" : "not ok 23\n";
 
-eval { alarm(-3) };
-print $@ =~ /::alarm\(-3, 0\): negative time not invented yet/ ?
-    "ok 24\n" : "not ok 24\n";
-
 if ($have_ualarm) {
+    eval { alarm(-3) };
+    print $@ =~ /::alarm\(-3, 0\): negative time not invented yet/ ?
+	"ok 24\n" : "not ok 24\n";
+
     eval { ualarm(-4) };
     print $@ =~ /::ualarm\(-4, 0\): negative time not invented yet/ ?
     "ok 25\n" : "not ok 25\n";
 } else {
+    skip 24;
     skip 25;
 }
-- 
2.7.4