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...@apache.org on 2002/05/12 20:46:43 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_perl.c
dougm 02/05/12 11:46:43
Modified: src/modules/perl modperl_perl.c
Log:
enable perl_free with win32/5.7.2+
Revision Changes Path
1.13 +5 -2 modperl-2.0/src/modules/perl/modperl_perl.c
Index: modperl_perl.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- modperl_perl.c 6 Apr 2002 17:42:10 -0000 1.12
+++ modperl_perl.c 12 May 2002 18:46:43 -0000 1.13
@@ -121,10 +121,13 @@
perl_destruct(perl);
/* XXX: big bug in 5.6.1 fixed in 5.7.2+
- * XXX: see CLONEf_CLONE_HOST perl_clone() flag
* XXX: try to find a workaround for 5.6.1
*/
-#ifndef WIN32
+#if defined(WIN32) && !defined(CLONEf_CLONE_HOST)
+# define MP_NO_PERL_FREE
+#endif
+
+#ifndef MP_NO_PERL_FREE
perl_free(perl);
#endif