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