diff options
| author | Alain Barbet <alian@cpan.org> | 2003-08-05 14:21:42 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-05 09:23:24 +0000 |
| commit | 22f207642643d9c4d40e3743a0cc2d311d577727 (patch) | |
| tree | 16d05260b5861daa6ffe2b12bdc0b79059b7e8b8 /ext/POSIX | |
| parent | b90b8af4d1ebe0d6611d6b09c75e4b9122663fa8 (diff) | |
| download | perl-22f207642643d9c4d40e3743a0cc2d311d577727.tar.gz | |
Re: [perl #23202] [RESOLVED] coredump on ext/POSIX/t/posix with NetBSD-1.6
Message-ID: <3F2F8536.1090702@jupiter.alianet>
p4raw-id: //depot/perl@20495
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/t/posix.t | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index dbc700a9b1..f8339f7a4c 100644 --- a/ext/POSIX/t/posix.t +++ b/ext/POSIX/t/posix.t @@ -82,15 +82,20 @@ SKIP: { # finish the test. # For others (darwin & freebsd), let the test fail without crashing. my $todo = $^O eq 'netbsd' && $Config{osvers}=~/^1\.6/; - kill 'HUP', $$ if !$todo; + my $why_todo = "# TODO $^O $Config{osvers} seems to loose blocked signals"; + if (!$todo) { + kill 'HUP', $$; + } else { + print "not ok 9 - sigaction SIGHUP ",$why_todo,"\n"; + print "not ok 10 - sig mask delayed SIGINT ",$why_todo,"\n"; + } sleep 1; $todo = 1 if ($^O eq 'freebsd') || ($^O eq 'darwin' && $Config{osvers} lt '6.6'); - printf "%s 11 - masked SIGINT received %s\n", + printf "%s 11 - masked SIGINT received %s\n", $sigint_called ? "ok" : "not ok", - $todo ? "# TODO $^O $Config{osvers} seems to loose blocked signals" - : ''; + $todo ? $why_todo : ''; print "ok 12 - signal masks successful\n"; |