cvs commit: modperl-2.0/lib/ModPerl Code.pm

[dougm]

dougm       00/04/27 22:40:35

  Modified:    lib/ModPerl Code.pm
  Log:
  keep these names in one place
  
  Revision  Changes    Path
  1.22      +4 -11     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.21
  retrieving revision 1.22
  diff -u -r1.21 -r1.22
  --- Code.pm   2000/04/27 22:02:02     1.21
  +++ Code.pm   2000/04/28 05:40:34     1.22
  @@ -5,25 +5,18 @@
   
   our $VERSION = '0.01';
   
  -#XXX Init, PreConfig
   my %handlers = (
  -    Process    => [qw(ChildInit ChildExit Restart)],
  +    Process    => [qw(ChildInit)], #ChildExit Restart PreConfig
       Files      => [qw(OpenLogs PostConfig)],
  -    PerSrv     => [qw(PostReadRequest Trans)],
  +    PerSrv     => [qw(PostReadRequest Trans)], #Init
       PerDir     => [qw(HeaderParser
                         Access Authen Authz
  -                      Type Fixup Response
  -                      Log Cleanup)],
  +                      Type Fixup Log)], #Init Response Cleanup
       Connection => [qw(PreConnection ProcessConnection)],
   );
   
   my %hooks = map { $_, canon_lc($_) }
  -    qw{OpenLogs PostConfig ChildInit
  -       PreConnection PostConnection
  -       PostReadRequest Trans
  -       HeaderParser
  -       Access Authen Authz
  -       Type Fixup Log};
  +    map { @{ $handlers{$_} } } keys %handlers;
   
   my %hook_proto = (
       Process    => {