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/src/modules/perl perl_config.c
Date Thu, 05 Nov 1998 04:09:22 GMT
dougm       98/11/04 20:09:22

  Modified:    .        Changes
               src/modules/perl perl_config.c
  Log:
  Perl*Handler commands will now call perl_startup() if Perl is not
  already running to cure dso problem [Daniel Jacobowitz <drow+@cs.cmu.edu>]
  
  Revision  Changes    Path
  1.186     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.185
  retrieving revision 1.186
  diff -u -r1.185 -r1.186
  --- Changes	1998/11/04 02:28:50	1.185
  +++ Changes	1998/11/05 04:09:18	1.186
  @@ -8,6 +8,9 @@
   
   =item 1.16_01-dev
   
  +Perl*Handler commands will now call perl_startup() if Perl is not
  +already running to cure dso problem [Daniel Jacobowitz <drow+@cs.cmu.edu>]
  +
   plugged leak in mod_perl_tie_table()
   
   methods that return an Apache::Table object no longer attempt to
  
  
  
  1.41      +4 -0      modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.40
  retrieving revision 1.41
  diff -u -r1.40 -r1.41
  --- perl_config.c	1998/10/29 19:04:38	1.40
  +++ perl_config.c	1998/11/05 04:09:21	1.41
  @@ -393,6 +393,10 @@
   }
   
   #define PERL_CMD_PUSH_HANDLERS(hook, cmd) \
  +if(!PERL_RUNNING()) { \
  +    perl_startup(parms->server, parms->pool); \
  +    MP_TRACE_g(fprintf(stderr, "mod_perl: %s calling perl_startup()\n", __FUNCTION__));
\
  +} \
   return perl_cmd_push_handlers(hook,&cmd,arg,parms->pool)
   
   #else
  
  
  

Mime
View raw message