diff options
| author | Alain Barbet <alian@cpan.org> | 2003-08-02 18:19:25 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-03 21:50:11 +0000 |
| commit | 7eb03357e6e31f7e9e759242eb85abc02adea5cf (patch) | |
| tree | 4f1ede9cda6b79cf18fd2e87089e0372a776e18d /ext/POSIX | |
| parent | 1fa63a09180676351ddecaea07a2347a1016bbf6 (diff) | |
| download | perl-7eb03357e6e31f7e9e759242eb85abc02adea5cf.tar.gz | |
Re: [perl #23202] coredump on ext/POSIX/t/posix with NetBSD-1.6
Message-ID: <3F2BC86D.2050400@jupiter.alianet>
Plus, un-mark a test as TODO for darwin >= 6.6 (by M. Schwern)
p4raw-id: //depot/perl@20461
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/t/posix.t | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index ea50ea3827..dbc700a9b1 100644 --- a/ext/POSIX/t/posix.t +++ b/ext/POSIX/t/posix.t @@ -75,15 +75,22 @@ SKIP: { my $action = new POSIX::SigAction 'main::SigHUP', $mask, 0; sigaction(&SIGHUP, $action); $SIG{'INT'} = 'SigINT'; - kill 'HUP', $$; + + # At least OpenBSD/i386 3.3 is okay, as is NetBSD 1.5. + # But not NetBSD 1.6 & 1.6.1: the test makes perl crash. + # So the kill() must not be done with this config in order to + # 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; sleep 1; - printf "%s 11 - masked SIGINT received %s\n", - $sigint_called ? "ok" : "not ok", - # At least OpenBSD/i386 3.3 is okay, as is NetBSD 1.5. - $^O =~ /^(?:darwin|freebsd)$/ ? - "# TODO $^O seems to loose blocked signals" - : ''; + $todo = 1 if ($^O eq 'freebsd') + || ($^O eq 'darwin' && $Config{osvers} lt '6.6'); + printf "%s 11 - masked SIGINT received %s\n", + $sigint_called ? "ok" : "not ok", + $todo ? "# TODO $^O $Config{osvers} seems to loose blocked signals" + : ''; print "ok 12 - signal masks successful\n"; |