From: Gerard Goossen <gerard@ggoossen.net>
Date: Thu, 12 Nov 2009 18:00:13 +0000 (+0100)
Subject: Make win32_start_child responsible for cleaning all the scopes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f90117a9a237d776b28f3a1207f17a7eed835355;p=p5sagit%2Fp5-mst-13.2.git

Make win32_start_child responsible for cleaning all the scopes.
---

diff --git a/win32/perlhost.h b/win32/perlhost.h
index d486246..61f8765 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -1762,7 +1762,7 @@ win32_start_child(LPVOID arg)
 
     {
 	dJMPENV;
-	volatile int oldscope = PL_scopestack_ix;
+	volatile int oldscope = 1; /* We are responsible for all scopes */
 
 restart:
 	JMPENV_PUSH(status);