You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/11/05 05:09:22 UTC
cvs commit: modperl/src/modules/perl perl_config.c
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 <dr...@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 <dr...@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