From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 26 Oct 2001 14:39:06 +0000 (+0000)
Subject: Time::HiRes::alarm() ain't gonna work either if ualarm() ain't
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c46d503802f31479fba8780314217baa664936af;p=p5sagit%2Fp5-mst-13.2.git

Time::HiRes::alarm() ain't gonna work either if ualarm() ain't

p4raw-id: //depot/perl@12692
---

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;
 }