From d0b83b2bb79e81d9c2a425120ffdd2d093b37c28 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Mon, 29 Oct 2001 06:34:07 -0600
Subject: HiRes.t tweaks Message-Id:
 <5.1.0.14.2.20011029121906.035d7e00@exchi01>

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

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index 0d509f34ff..6c84731e20 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -180,7 +180,7 @@ unless (defined &Time::HiRes::gettimeofday
 	$i--;
 	print "# Tick! $i ", Time::HiRes::tv_interval ($r), "\n";
     }
-    $SIG{ALRM} = 'DEFAULT';
+    alarm(0); # can't cancel usig %SIG
 
     print "ok 17\n";
 }
@@ -188,7 +188,8 @@ unless (defined &Time::HiRes::gettimeofday
 unless (defined &Time::HiRes::setitimer
 	&& defined &Time::HiRes::getitimer
 	&& exists &Time::HiRes::ITIMER_VIRTUAL
-	&& $Config{d_select}) {
+	&& $Config{d_select}
+	&& $Config{sig_name} =~ m/\bVTALRM\b/) {
     for (18..19) {
 	print "ok $_ # Skip: no virtual interval timers\n";
     }
-- 
cgit v1.2.1