Author: geoff
Date: Thu Mar 31 05:58:12 2005
New Revision: 159589
URL: http://svn.apache.org/viewcvs?view=rev&rev=159589
Log:
add test for Apache2->server->push_handlers(PerlChildExitHandler => $cv)
Added:
perl/modperl/trunk/t/lib/TestExit/
perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm
Modified:
perl/modperl/trunk/t/conf/extra.conf.in
Modified: perl/modperl/trunk/t/conf/extra.conf.in
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/conf/extra.conf.in?view=diff&r1=159588&r2=159589
==============================================================================
--- perl/modperl/trunk/t/conf/extra.conf.in (original)
+++ perl/modperl/trunk/t/conf/extra.conf.in Thu Mar 31 05:58:12 2005
@@ -35,6 +35,7 @@
PerlSwitches -wT
PerlChildExitHandler ModPerl::Test::exit_handler
+PerlModule TestExit::FromPerlModule
#for t/modules/include.t
<Directory @ServerRoot@/htdocs/includes>
Added: perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm?view=auto&rev=159589
==============================================================================
--- perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm (added)
+++ perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm Thu Mar 31 05:58:12 2005
@@ -0,0 +1,20 @@
+package TestExit::FromPerlModule;
+
+use strict;
+use warnings FATAL => qw(all);
+
+use Apache2::ServerRec;
+use Apache2::Log;
+use Apache2::Const -compile => qw(OK);
+
+sub exit_handler {
+ my($p, $s) = @_;
+
+ $s->log->info("Child process pid=$$ is exiting - server push");
+
+ Apache2::OK;
+}
+
+Apache2->server->push_handlers(PerlChildExitHandler => \&exit_handler);
+
+1;
