diff options
Diffstat (limited to 'win32')
| -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: |