This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make win32_start_child responsible for cleaning all the scopes.
authorGerard Goossen <gerard@ggoossen.net>
Thu, 12 Nov 2009 18:00:13 +0000 (19:00 +0100)
committerJan Dubois <jand@activestate.com>
Fri, 13 Nov 2009 01:05:56 +0000 (17:05 -0800)
win32/perlhost.h

index d486246..61f8765 100644 (file)
@@ -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);