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 (file)
--- 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;
+}