diff options
| author | Gerard Goossen <gerard@tty.nl> | 2009-10-30 15:03:45 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-10-31 22:57:01 +0100 |
| commit | d3ab86beddf03171608c751a0b6585aeb1864b00 (patch) | |
| tree | 9fb99218bb4324aaa4467f1b7e588f444c40406f /cop.h | |
| parent | 941446f6f52eecff56982518624db4f64a5951fc (diff) | |
| download | perl-d3ab86beddf03171608c751a0b6585aeb1864b00.tar.gz | |
Add assertion to JMPENV_POP to assert that the jumplevel popped is the top level jumplevel
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 |