diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-03 02:22:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-03 02:22:56 +0000 |
| commit | ee1db23eeaa208908244ed9e479fed560e28d90a (patch) | |
| tree | 23d5e02a0d6e4d8da97ff3d0d63ea3a6c6df74bb /t | |
| parent | a7fbee988c00db7c1d8bee64bbf744b02ff32f4c (diff) | |
| download | perl-ee1db23eeaa208908244ed9e479fed560e28d90a.tar.gz | |
Integrate macperl #16360 and #16363;
Make op/alarm.t pass
README.macos update
p4raw-id: //depot/perl@16364
p4raw-integrated: from //depot/macperl@16358 'copy in' README.macos
t/op/alarm.t (@16123..)
Diffstat (limited to 't')
| -rw-r--r-- | t/op/alarm.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/alarm.t b/t/op/alarm.t index c008737dff..384ee1d028 100644 --- a/t/op/alarm.t +++ b/t/op/alarm.t @@ -45,6 +45,7 @@ $diff = time - $start_time; is( $@, "ALARM!\n", 'alarm w/$SIG{ALRM} vs system()' ); { - local $TODO = 'Why does system() block alarm() on VMS?' if $^O eq 'VMS'; + local $TODO = "Why does system() block alarm() on $^O?" + if $^O eq 'VMS' || $^O eq'MacOS'; ok( abs($diff - 3) <= 1, " right time (waited $diff secs for 3-sec alarm)" ); } |