From: Alain Barbet <alian@cpan.org>
Date: Tue, 5 Aug 2003 12:21:42 +0000 (+0200)
Subject: Re: [perl #23202] [RESOLVED] coredump on ext/POSIX/t/posix with NetBSD-1.6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=22f207642643d9c4d40e3743a0cc2d311d577727;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t
index dbc700a..f8339f7 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";