dougm 01/06/18 19:36:42
Modified: src/modules/perl mod_perl.c
. Changes
Log:
perl_destruct_level must always be 2 for DSO builds
Revision Changes Path
1.138 +1 -2 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.137
retrieving revision 1.138
diff -u -r1.137 -r1.138
--- mod_perl.c 2001/06/14 04:49:08 1.137
+++ mod_perl.c 2001/06/19 02:36:38 1.138
@@ -259,8 +259,6 @@
if((pdl = getenv("PERL_DESTRUCT_LEVEL")))
perl_destruct_level = atoi(pdl);
- else
- perl_destruct_level = PERL_DESTRUCT_LEVEL;
if(perl_destruct_level < 0) {
MP_TRACE_g(fprintf(stderr,
@@ -510,6 +508,7 @@
array_header *librefs;
librefs = xs_dl_librefs((pool *)data);
+ perl_destruct_level = 2;
perl_shutdown(NULL, NULL);
unload_xs_so(librefs);
}
1.600 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.599
retrieving revision 1.600
diff -u -r1.599 -r1.600
--- Changes 2001/06/14 16:38:15 1.599
+++ Changes 2001/06/19 02:36:40 1.600
@@ -10,6 +10,9 @@
=item 1.25_01-dev
+perl_destruct_level must always be 2 for DSO builds to prevent
+leaking on restarts, thanks to Paul G. Weiss for the spot
+
make sure file to be reloaded can be found in @INC, adjusting based on
%INC value if needed
[Ilya Konstantinov <[EMAIL PROTECTED]>]
