From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Fri, 26 Oct 2001 08:34:46 +0000 (-0400)
Subject: Re: perl@12605 on VMS, [minor PATCH enclosed]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec77158c6986c440c2b776cdbe6b5155237aa3a3;p=p5sagit%2Fp5-mst-13.2.git

Re: perl@12605 on VMS, [minor PATCH enclosed]
Message-Id: <011026081912.dc29b@DUPHY4.Physics.Drexel.Edu>

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

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index 887f810..d0300be 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -241,6 +241,10 @@ 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/ ?
+if ($have_ualarm) {
+    eval { ualarm(-4) };
+    print $@ =~ /::ualarm\(-4, 0\): negative time not invented yet/ ?
     "ok 25\n" : "not ok 25\n";
+} else {
+    skip 25;
+}