stas 2003/02/02 22:39:30
Modified: lib/ModPerl Code.pm
Log:
- PerlInitHandler is already manually implemented (remove the comment)
- enable PerlChildInitHandler, it is about to be committed
- enable PerlChildExit, it is coming next
Revision Changes Path
1.91 +6 -5 modperl-2.0/lib/ModPerl/Code.pm
Index: Code.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -r1.90 -r1.91
--- Code.pm 3 Feb 2003 01:18:15 -0000 1.90
+++ Code.pm 3 Feb 2003 06:39:30 -0000 1.91
@@ -13,13 +13,13 @@
our @ISA = qw(Apache::Build);
my %handlers = (
- Process => [qw(ChildInit)], #ChildExit Restart PreConfig
+ Process => [qw(ChildInit ChildExit)], #Restart PreConfig
Files => [qw(OpenLogs PostConfig)],
- PerSrv => [qw(PostReadRequest Trans)], #Init
+ PerSrv => [qw(PostReadRequest Trans)],
PerDir => [qw(HeaderParser
Access Authen Authz
- Type Fixup Response Log
- InputFilter OutputFilter)], #Init Cleanup
+ Type Fixup Response Log Cleanup
+ InputFilter OutputFilter)],
Connection => [qw(ProcessConnection)],
PreConnection => [qw(PreConnection)],
);
@@ -27,7 +27,8 @@
my %hooks = map { $_, canon_lc($_) }
map { @{ $handlers{$_} } } keys %handlers;
-my %not_ap_hook = map { $_, 1 } qw(response output_filter input_filter);
+my %not_ap_hook = map { $_, 1 } qw(child_exit response cleanup
+ output_filter input_filter);
my %hook_proto = (
Process => {