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

[dougm]

dougm       02/04/23 09:27:00

  Modified:    lib/ModPerl Code.pm
  Log:
  give Perl*Handlers precedence over other handlers by using APR_HOOK_FIRST rather 
than APR_HOOK_LAST
  
  Revision  Changes    Path
  1.78      +1 -1      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.77
  retrieving revision 1.78
  diff -u -r1.77 -r1.78
  --- Code.pm   9 Apr 2002 01:15:44 -0000       1.77
  +++ Code.pm   23 Apr 2002 16:27:00 -0000      1.78
  @@ -199,7 +199,7 @@
               if (my $hook = $hooks{$handler}) {
                   next if $not_ap_hook{$hook};
                   push @register_hooks,
  -                  "    ap_hook_$hook($name, NULL, NULL, APR_HOOK_LAST);";
  +                  "    ap_hook_$hook($name, NULL, NULL, APR_HOOK_FIRST);";
               }
   
               my($protostr, $pass) = canon_proto($prototype, $name);