diff options
-rw-r--r-- | pp_sys.c | 2 | ||||
-rw-r--r-- | t/op/taint.t | 1 |
2 files changed, 1 insertions, 2 deletions
@@ -500,7 +500,7 @@ PP(pp_die) } } } - else if (SvPOK(ERRSV) && SvCUR(ERRSV)) { + else if (SvPV_const(ERRSV, len), len) { exsv = sv_mortalcopy(ERRSV); sv_catpvs(exsv, "\t...propagated"); } diff --git a/t/op/taint.t b/t/op/taint.t index 095c99115a..9cea74040c 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -2198,7 +2198,6 @@ pass("no death when TARG of ref is tainted"); } { # 111654 - local $::TODO = "RT #111654"; eval { eval { die "Test\n".substr($ENV{PATH}, 0, 0); }; die; |