From: David Mitchell <davem@iabyn.com>
Date: Wed, 5 Aug 2009 13:18:37 +0000 (+0100)
Subject: win32/perlhost.h: use symbolic constant
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46a76da79aa70ae5c77ffe23d8c6e303c7c67ce2;p=p5sagit%2Fp5-mst-13.2.git

win32/perlhost.h: use symbolic constant
CLONEf_COPY_STACKS rather than 1
---

diff --git a/win32/perlhost.h b/win32/perlhost.h
index 6e3fcd2..c2473c9 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -1835,7 +1835,8 @@ PerlProcFork(struct IPerlProc* piPerl)
 	return -1;
     }
     h = new CPerlHost(*(CPerlHost*)w32_internal_host);
-    PerlInterpreter *new_perl = perl_clone_using((PerlInterpreter*)aTHX, 1,
+    PerlInterpreter *new_perl = perl_clone_using((PerlInterpreter*)aTHX,
+						 CLONEf_COPY_STACKS,
 						 h->m_pHostperlMem,
 						 h->m_pHostperlMemShared,
 						 h->m_pHostperlMemParse,