This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
unbalanced LEAVE after perl_clone(...,0) (from Doug MacEachern)
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 30 Apr 2000 16:59:22 +0000 (16:59 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 30 Apr 2000 16:59:22 +0000 (16:59 +0000)
p4raw-id: //depot/perl@6022

sv.c

diff --git a/sv.c b/sv.c
index 65e2837..7f7c9a6 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -7870,6 +7870,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     }
     else {
        init_stacks();
+       ENTER;                  /* perl_destruct() wants to LEAVE; */
     }
 
     PL_start_env       = proto_perl->Tstart_env;       /* XXXXXX */