stas 2003/12/15 00:24:57
Modified: src/modules/perl mod_perl.c
. Changes
Log:
Plug a memory leak with 'perl-script' not cleaning up the temp vars
created during the override of STDIN/STDOUT to use the :Apache IO
layer
Revision Changes Path
1.205 +4 -0 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.204
retrieving revision 1.205
diff -u -u -r1.204 -r1.205
--- mod_perl.c 1 Dec 2003 17:28:36 -0000 1.204
+++ mod_perl.c 15 Dec 2003 08:24:57 -0000 1.205
@@ -880,6 +880,9 @@
modperl_global_request_set(r);
}
+ /* need to create a block around the IO setup so the temp vars
+ * will be automatically cleaned up when we are done with IO */
+ ENTER;SAVETMPS;
h_stdin = modperl_io_override_stdin(aTHX_ r);
h_stdout = modperl_io_override_stdout(aTHX_ r);
@@ -893,6 +896,7 @@
modperl_io_restore_stdin(aTHX_ h_stdin);
modperl_io_restore_stdout(aTHX_ h_stdout);
+ FREETMPS;LEAVE;
#ifdef USE_ITHREADS
if (MpInterpPUTBACK(interp)) {
1.283 +4 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.282
retrieving revision 1.283
diff -u -u -r1.282 -r1.283
--- Changes 15 Dec 2003 05:29:35 -0000 1.282
+++ Changes 15 Dec 2003 08:24:57 -0000 1.283
@@ -12,6 +12,10 @@
=item 1.99_12-dev
+Plug a memory leak with 'perl-script' not cleaning up the temp vars
+created during the override of STDIN/STDOUT to use the :Apache IO
+layer [Stas]
+
libgtop config (needed for enabling MOD_PERL_TRACE=m) is now searched
using the gnome packaging tools if available (pkg-config for gnome-2.x
and gnome-config for gnome-1.x) [Stas]
