You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/12/07 18:28:57 UTC
svn commit: r110115 - /perl/modperl/trunk/t/response/TestPerl/signals.pm
Author: stas
Date: Tue Dec 7 09:28:56 2004
New Revision: 110115
URL: http://svn.apache.org/viewcvs?view=rev&rev=110115
Log:
explain why the "unsafe"-non-POSIX subtest is not run under static prefork
Modified:
perl/modperl/trunk/t/response/TestPerl/signals.pm
Modified: perl/modperl/trunk/t/response/TestPerl/signals.pm
Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestPerl/signals.pm?view=diff&rev=110115&p1=perl/modperl/trunk/t/response/TestPerl/signals.pm&r1=110114&p2=perl/modperl/trunk/t/response/TestPerl/signals.pm&r2=110115
==============================================================================
--- perl/modperl/trunk/t/response/TestPerl/signals.pm (original)
+++ perl/modperl/trunk/t/response/TestPerl/signals.pm Tue Dec 7 09:28:56 2004
@@ -11,14 +11,13 @@
use POSIX qw(SIGALRM);
-#use POSIX ':signal_h';
-
use Apache::Const -compile => qw(OK);
my $mpm = lc Apache::MPM->show;
# signal handlers don't work anywhere but with prefork, since signals
# and threads don't mix
+# moreover "unsafe"-non-POSIX sighandlers don't work under static prefork
sub handler {
my $r = shift;
@@ -31,6 +30,7 @@
plan $r, tests => $tests,
need { "works only for prefork" => ($mpm eq 'prefork') };
+ # doesn't work under static prefork
if (!$static) {
local $ENV{PERL_SIGNALS} = "unsafe";