summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pp_sys.c2
-rw-r--r--t/op/taint.t1
2 files changed, 1 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 63fbd05863..49910d2985 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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;