Author: gozer
Date: Sun Jan 16 22:04:35 2005
New Revision: 125401

URL: http://svn.apache.org/viewcvs?view=rev&rev=125401
Log:
avoid possibly calling FREE_THREAD_KEY() twice in
MP_PERL_FREE_THREAD_KEY_WORKAROUND

Submitted-by: Gisle Aas <[EMAIL PROTECTED]>


Modified:
   perl/modperl/trunk/src/modules/perl/modperl_perl_includes.h

Modified: perl/modperl/trunk/src/modules/perl/modperl_perl_includes.h
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_perl_includes.h?view=diff&rev=125401&p1=perl/modperl/trunk/src/modules/perl/modperl_perl_includes.h&r1=125400&p2=perl/modperl/trunk/src/modules/perl/modperl_perl_includes.h&r2=125401
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_perl_includes.h (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_perl_includes.h Sun Jan 16 
22:04:35 2005
@@ -146,6 +146,7 @@
 #define MP_PERL_FREE_THREAD_KEY_WORKAROUND      \
     if (PL_curinterp) {                         \
         FREE_THREAD_KEY;                        \
+        PL_curinterp = NULL;                    \
     }
 #else
 #define MP_PERL_FREE_THREAD_KEY_WORKAROUND

Reply via email to