X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.c;fp=sv.c;h=2d075eb8830baa7bbc419bdf43fc9953c4e5e756;hb=8ebeeb789c7e07e6a4705622485f7c35d66b3eac;hp=c885bb22b7e380a846c569d53e2f8e77bd1be521;hpb=b8bfa007e85f190696666dcd944c1c01b7860b92;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sv.c b/sv.c
index c885bb2..2d075eb 100644
--- a/sv.c
+++ b/sv.c
@@ -7888,6 +7888,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 */