diff options
author | Tony Cook <tony@develop-help.com> | 2019-07-17 11:32:50 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-07-22 10:25:47 +1000 |
commit | 85d4e0a35b2d44cf06a9343d23a2f84b8ebb9024 (patch) | |
tree | d1131c2e0ded41bdd2c6b17a41be9a92db813ae3 /pp_sys.c | |
parent | 0f4e030a2e899b7cf67d8cdcd183fa292f60e1f2 (diff) | |
download | perl-85d4e0a35b2d44cf06a9343d23a2f84b8ebb9024.tar.gz |
(perl #134291) propagate non-PVs in $@ in bare die()
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -498,7 +498,7 @@ PP(pp_die) } } } - else if (SvPOK(errsv) && SvCUR(errsv)) { + else if (SvOK(errsv) && (SvPV_nomg(errsv,len), len)) { exsv = sv_mortalcopy(errsv); sv_catpvs(exsv, "\t...propagated"); } |