Make win32_start_child responsible for cleaning all the scopes.

diff --git a/win32/perlhost.h b/win32/perlhost.h
index d486246..61f8765 100644 (file)
--- 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);