diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/perlhost.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/perlhost.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/perlhost.h b/Master/tlpkg/tlperl/lib/CORE/perlhost.h index 265328b69b7..b1c6c805e50 100644 --- a/Master/tlpkg/tlperl/lib/CORE/perlhost.h +++ b/Master/tlpkg/tlperl/lib/CORE/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: |