diff options
| author | Arthur Bergman <arthur@contiller.se> | 2001-08-13 13:11:30 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-13 12:00:08 +0000 |
| commit | f3faeb53b75c95d2773d14d859d4fa9ca1594daa (patch) | |
| tree | c9d017b48c716d345a9c06842429d6c6252f1e8f /perl.c | |
| parent | 39e02b423749ca43aca0385eea6257ecde9aee92 (diff) | |
| download | perl-f3faeb53b75c95d2773d14d859d4fa9ca1594daa.tar.gz | |
Re: END {} blocks run in perl_run
Message-ID: <B79D6661.3068%arthur@contiller.se>
p4raw-id: //depot/perl@11658
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -397,15 +397,16 @@ perl_destruct(pTHXx) } #endif - LEAVE; { - dJMPENV; - int x = 0; - JMPENV_PUSH(x); - if (PL_endav && !PL_minus_c) - call_list(PL_scopestack_ix, PL_endav); - JMPENV_POP; + dJMPENV; + int x = 0; + + JMPENV_PUSH(x); + if (PL_endav && !PL_minus_c) + call_list(PL_scopestack_ix, PL_endav); + JMPENV_POP; } + LEAVE; FREETMPS; /* We must account for everything. */ |