diff options
| author | Vincent Pit <perl@profvince.com> | 2014-09-27 19:00:46 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2014-09-28 09:54:29 +0200 |
| commit | 49f9fecb5d7481850ac2474c72c1013a4c763226 (patch) | |
| tree | 54b5a88c81cc42d9927447b8b41ff70a259a3a38 /win32/perlhost.h | |
| parent | 77b030b5bd8a1500c27a6b5c5d30903c83a4c704 (diff) | |
| download | perl-49f9fecb5d7481850ac2474c72c1013a4c763226.tar.gz | |
Properly set the phase for END blocks run at the end of a pseudo-fork
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 265328b69b..b1c6c805e5 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1759,8 +1759,10 @@ restart: SvREFCNT_dec(PL_curstash); PL_curstash = (HV *)SvREFCNT_inc(PL_defstash); } - if (PL_endav && !PL_minus_c) + if (PL_endav && !PL_minus_c) { + PERL_SET_PHASE(PERL_PHASE_END); call_list(oldscope, PL_endav); + } status = STATUS_EXIT; break; case 3: |