From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 29 Oct 2001 12:34:07 +0000 (-0600)
Subject: HiRes.t tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0b83b2bb79e81d9c2a425120ffdd2d093b37c28;p=p5sagit%2Fp5-mst-13.2.git

HiRes.t tweaks
Message-Id: <5.1.0.14.2.20011029121906.035d7e00@exchi01>

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

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index 0d509f3..6c84731 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";
     }