From: Gerard Goossen <gerard@tty.nl>
Date: Fri, 30 Oct 2009 14:03:45 +0000 (+0100)
Subject: Add assertion to JMPENV_POP to assert that the jumplevel popped is the top level... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3ab86beddf03171608c751a0b6585aeb1864b00;p=p5sagit%2Fp5-mst-13.2.git

Add assertion to JMPENV_POP to assert that the jumplevel popped is the top level jumplevel
---

diff --git a/cop.h b/cop.h
index 3633e9d..93154c8 100644
--- a/cop.h
+++ b/cop.h
@@ -114,6 +114,7 @@ typedef struct jmpenv JMPENV;
     STMT_START {							\
 	DEBUG_l(Perl_deb(aTHX_ "popping jumplevel was %p, now %p\n",	\
 			 (void*)PL_top_env, (void*)cur_env.je_prev));			\
+	assert(PL_top_env == &cur_env);					\
 	PL_top_env = cur_env.je_prev;					\
     } STMT_END