perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/t/net/perl hooks.pl
Date Thu, 13 Aug 1998 01:49:09 GMT
dougm       98/08/12 18:49:09

  Modified:    .        Changes ToDo
               src/modules/perl mod_perl.c
               t/net/perl hooks.pl
  Log:
  PerlCleanupHandler is now run by a register_cleanup(), rather than an
  alias for PerlLogHandler
  
  Revision  Changes    Path
  1.109     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.108
  retrieving revision 1.109
  diff -u -r1.108 -r1.109
  --- Changes	1998/08/13 01:46:25	1.108
  +++ Changes	1998/08/13 01:49:06	1.109
  @@ -8,6 +8,9 @@
   
   =item 1.15_01-dev
   
  +PerlCleanupHandler is now run by a register_cleanup(), rather than an
  +alias for PerlLogHandler 
  +
   get rid of warning in Apache::RedirectLogFix [Brian Moseley <ix@maz.org>]
   
   added $r->internal_redirect method
  
  
  
  1.62      +2 -1      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.61
  retrieving revision 1.62
  diff -u -r1.61 -r1.62
  --- ToDo	1998/08/11 16:52:38	1.61
  +++ ToDo	1998/08/13 01:49:07	1.62
  @@ -18,8 +18,9 @@
   
   - ap_log_error -> ap_log_rerror
   
  +- Apache::Constants :override :args_how
  +
   - PerlInitHandler - alias to first available
  -  PerlCleanupHandler - register_cleanup
   
   - make 'make test_report' more useful
   
  
  
  
  1.38      +6 -7      modperl/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/mod_perl.c,v
  retrieving revision 1.37
  retrieving revision 1.38
  diff -u -r1.37 -r1.38
  --- mod_perl.c	1998/08/07 22:00:09	1.37
  +++ mod_perl.c	1998/08/13 01:49:08	1.38
  @@ -828,21 +828,20 @@
   {
       dSTATUS;
       dPPDIR;
  -    int rstatus;
       PERL_CALLBACK("PerlLogHandler", cld->PerlLogHandler);
  -    rstatus = status;
  -#ifdef PERL_CLEANUP
  -    PERL_CALLBACK("PerlCleanupHandler", cld->PerlCleanupHandler);
  -#endif
  -    return rstatus;
  +    return status;
   }
   #endif
   
   void mod_perl_end_cleanup(void *data)
   {
       request_rec *r = (request_rec *)data;
  -    MP_TRACE_g(fprintf(stderr, "perl_end_cleanup..."));
  +    dSTATUS;
  +    dPPDIR;
   
  +    PERL_CALLBACK("PerlCleanupHandler", cld->PerlCleanupHandler);
  +
  +    MP_TRACE_g(fprintf(stderr, "perl_end_cleanup..."));
       perl_run_rgy_endav(r->uri);
   
       /* clear %ENV */
  
  
  
  1.7       +2 -1      modperl/t/net/perl/hooks.pl
  
  Index: hooks.pl
  ===================================================================
  RCS file: /export/home/cvs/modperl/t/net/perl/hooks.pl,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- hooks.pl	1998/07/18 22:10:05	1.6
  +++ hooks.pl	1998/08/13 01:49:09	1.7
  @@ -38,7 +38,8 @@
   
   my($hook, $package, $retval);
   
  -for (qw(Access Authen Authz Fixup Cleanup
  +#hmm, Cleanup doesn't seem to work in .htaccess with register_cleanup()
  +for (qw(Access Authen Authz Fixup
   	HeaderParser Init Log Type Trans)) {
       next unless Apache::perl_hook($_);
       $tests++; 
  
  
  

Mime
View raw message