cvs commit: modperl-2.0/src/modules/perl mod_perl.c

[dougm]

dougm   2002/06/06 09:45:41

  Modified:src/modules/perl mod_perl.c
  Log:
  need to run open_logs,post_config,child_init hooks APR_HOOKS_FIRST so
  they are run before those in modperl_hooks.c
  
  Revision  ChangesPath
  1.123 +3 -3  modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.122
  retrieving revision 1.123
  diff -u -r1.122 -r1.123
  --- mod_perl.c4 Jun 2002 16:16:50 -   1.122
  +++ mod_perl.c6 Jun 2002 16:45:41 -   1.123
   -530,10 +530,10 
  NULL, NULL, APR_HOOK_MIDDLE);
   
   ap_hook_open_logs(modperl_hook_init,
  -  NULL, NULL, APR_HOOK_MIDDLE);
  +  NULL, NULL, APR_HOOK_FIRST);
   
   ap_hook_post_config(modperl_hook_post_config,
  -NULL, NULL, APR_HOOK_MIDDLE);
  +NULL, NULL, APR_HOOK_FIRST);
   
   ap_hook_handler(modperl_response_handler,
   NULL, NULL, APR_HOOK_MIDDLE);
   -576,7 +576,7 
 NULL, NULL, APR_HOOK_FIRST);
   
   ap_hook_child_init(modperl_hook_child_init,
  -   NULL, NULL, APR_HOOK_MIDDLE);
  +   NULL, NULL, APR_HOOK_FIRST);
   
   modperl_register_handler_hooks();
   }
  
  
  

cvs commit: modperl-2.0/src/modules/perl modperl_handler.c

[dougm]

dougm   2002/06/06 10:32:51

  Modified:src/modules/perl modperl_handler.c
  Log:
  add support for Perl*Handler +Apache::Foo
  
  Revision  ChangesPath
  1.11  +14 -0 modperl-2.0/src/modules/perl/modperl_handler.c
  
  Index: modperl_handler.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_handler.c,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- modperl_handler.c 21 Oct 2001 22:11:34 -  1.10
  +++ modperl_handler.c 6 Jun 2002 17:32:51 -   1.11
   -5,6 +5,20 
   modperl_handler_t *handler = 
   (modperl_handler_t *)apr_pcalloc(p, sizeof(*handler));
   
  +switch (*name) {
  +  case '+':
  +++name;
  +MpHandlerAUTOLOAD_On(handler);
  +break;
  +  case '-':
  +++name;
  +/* XXX: currently a noop; should disable autoload of given handler
  + * if PerlOptions +AutoLoad is configured
  + */
  +MpHandlerAUTOLOAD_Off(handler);
  +break;
  +}
  +
   handler-name = name;
   MP_TRACE_h(MP_FUNC, new handler %s\n, handler-name);