Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 34438 invoked by uid 500); 4 Sep 2002 17:56:52 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 34427 invoked by uid 500); 4 Sep 2002 17:56:51 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 4 Sep 2002 17:56:51 -0000 Message-ID: <20020904175651.94075.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/src/modules/perl mod_perl.c X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N dougm 2002/09/04 10:56:51 Modified: src/modules/perl mod_perl.c Log: make sure MP_init_done is reset when we teardown. (should only matter for static linkage, but doesn't hurt with dso) Revision Changes Path 1.137 +4 -2 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.136 retrieving revision 1.137 diff -u -r1.136 -r1.137 --- mod_perl.c 4 Sep 2002 17:51:02 -0000 1.136 +++ mod_perl.c 4 Sep 2002 17:56:50 -0000 1.137 @@ -354,8 +354,12 @@ return APR_SUCCESS; } +static int MP_init_done = 0; + static apr_status_t modperl_sys_term(void *data) { + MP_init_done = 0; + modperl_env_unload(); modperl_perl_pp_unset_all(); @@ -365,8 +369,6 @@ #endif return APR_SUCCESS; } - -static int MP_init_done = 0; int modperl_hook_init(apr_pool_t *pconf, apr_pool_t *plog, apr_pool_t *ptemp, server_rec *s)