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/docs startup.pl
Date Mon, 30 Nov 1998 14:59:45 GMT
dougm       98/11/30 06:59:45

  Modified:    .        Changes ToDo
               src/modules/perl mod_perl.c
               t/docs   startup.pl
  Log:
  fix bug w/ push_handlers(PerlCleanupHandler => ...) spotted by
  Jan-Pieter Cornet and Philp Gwyn
  
  Revision  Changes    Path
  1.217     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.216
  retrieving revision 1.217
  diff -u -r1.216 -r1.217
  --- Changes	1998/11/30 12:59:44	1.216
  +++ Changes	1998/11/30 14:59:42	1.217
  @@ -8,6 +8,9 @@
   
   =item 1.16_02-dev
   
  +fix bug w/ push_handlers(PerlCleanupHandler => ...) spotted by 
  +Jan-Pieter Cornet and Philp Gwyn
  +
   remove references to the deprecated CGI::Switch
   
   initialize %LocationMatch, %DirectoryMatch, %FilesMatch and tie to IxHash
  
  
  
  1.124     +0 -5      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /home/cvs/modperl/ToDo,v
  retrieving revision 1.123
  retrieving revision 1.124
  diff -u -r1.123 -r1.124
  --- ToDo	1998/11/24 23:15:10	1.123
  +++ ToDo	1998/11/30 14:59:42	1.124
  @@ -26,11 +26,6 @@
   KNOWN BUGS
   ---------------------------------------------------------------------------
   
  -- Apache->push_handlers("PerlCleanupHandler", ...),
  -  the handler isn't called unless there's already a CleanupHandler defined.
  -  Jan-Pieter Cornet <johnpc@xs4all.net>
  -  (should use $r->register_cleanup anyhow)
  -
   - sfio/solaris problem
   Lupe Christoph <lupe@alanya.m.isar.de>, Don Hayward <don@mote.org>
   
  
  
  
  1.60      +4 -7      modperl/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
  retrieving revision 1.59
  retrieving revision 1.60
  diff -u -r1.59 -r1.60
  --- mod_perl.c	1998/11/25 03:31:41	1.59
  +++ mod_perl.c	1998/11/30 14:59:44	1.60
  @@ -936,12 +936,11 @@
   }
   #endif
   
  -#define CleanupHandler cld->PerlCleanupHandler
  -
   #ifdef PERL_STACKED_HANDLERS
  -#define has_CleanupHandler (CleanupHandler && SvREFCNT(CleanupHandler))
  +#define CleanupHandler \
  +((cld->PerlCleanupHandler && SvREFCNT(cld->PerlCleanupHandler)) ? cld->PerlCleanupHandler
: Nullav)
   #else
  -#define has_CleanupHandler CleanupHandler
  +#define CleanupHandler cld->PerlCleanupHandler
   #endif
   
   void mod_perl_end_cleanup(void *data)
  @@ -951,9 +950,7 @@
       dPPDIR;
   
   #ifdef PERL_CLEANUP
  -    if(has_CleanupHandler) {
  -	PERL_CALLBACK("PerlCleanupHandler", cld->PerlCleanupHandler);
  -    }
  +    PERL_CALLBACK("PerlCleanupHandler", CleanupHandler);
   #endif
   
       MP_TRACE_g(fprintf(stderr, "perl_end_cleanup..."));
  
  
  
  1.28      +1 -1      modperl/t/docs/startup.pl
  
  Index: startup.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/docs/startup.pl,v
  retrieving revision 1.27
  retrieving revision 1.28
  diff -u -r1.27 -r1.28
  --- startup.pl	1998/11/24 16:53:09	1.27
  +++ startup.pl	1998/11/30 14:59:44	1.28
  @@ -216,7 +216,7 @@
   
   package Apache::Death;
   my $say_ok = <<EOF;
  -*** The follow [error] is expected, no cause for alarm ***
  +*** The following [error] is expected, no cause for alarm ***
   EOF
   
   sub handler {
  
  
  

Mime
View raw message