diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-10-29 06:34:07 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-30 01:08:01 +0000 |
| commit | d0b83b2bb79e81d9c2a425120ffdd2d093b37c28 (patch) | |
| tree | 106747ca8de3147ab88152a7d5baa1521594d349 | |
| parent | 4c2e14756d9f1232fe7a0e3877ecc3c048dec713 (diff) | |
| download | perl-d0b83b2bb79e81d9c2a425120ffdd2d093b37c28.tar.gz | |
HiRes.t tweaks
Message-Id: <5.1.0.14.2.20011029121906.035d7e00@exchi01>
p4raw-id: //depot/perl@12769
| -rw-r--r-- | ext/Time/HiRes/HiRes.t | 5 |
1 files 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"; } |