dougm 02/05/11 13:01:09
Modified: src/modules/perl modperl_interp.c
Log:
win32/bleedperl perl_clone needs the CLONEf_CLONE_HOST flag
Revision Changes Path
1.41 +6 -1 modperl-2.0/src/modules/perl/modperl_interp.c
Index: modperl_interp.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_interp.c,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- modperl_interp.c 11 May 2002 17:17:34 -0000 1.40
+++ modperl_interp.c 11 May 2002 20:01:09 -0000 1.41
@@ -39,6 +39,7 @@
modperl_interp_pool_t *mip,
PerlInterpreter *perl)
{
+ UV clone_flags = 0;
modperl_interp_t *interp =
(modperl_interp_t *)apr_pcalloc(p, sizeof(*interp));
@@ -52,7 +53,11 @@
);
#endif
- interp->perl = perl_clone(perl, FALSE);
+#if defined(WIN32) && defined(CLONEf_CLONE_HOST)
+ clone_flags |= CLONEf_CLONE_HOST;
+#endif
+
+ interp->perl = perl_clone(perl, clone_flags);
modperl_interp_clone_init(interp);