diff options
| author | Tony Cook <tony@develop-help.com> | 2012-03-11 14:38:57 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2012-03-12 10:09:45 +1100 |
| commit | 05a1a0145d15cec87e1ea2fd2386895cc1658eb3 (patch) | |
| tree | f46e94b18c5678477e86aa3cc932a7c81ed65333 /t | |
| parent | af89892edf2ed1bf0c26d1b75e74d81410d8c81f (diff) | |
| download | perl-05a1a0145d15cec87e1ea2fd2386895cc1658eb3.tar.gz | |
[rt #111654] properly propgate tainted errors
A magic value (such as a tainted string) may not have POK set, so call
SvPV() to find out if there's something in ERRSV to report.
Possibly this should be using SvPV_nomg(), but this is the first
request for magic in this code. Maybe the code above should be
calling SvGETMAGIC() before checking SvROK().
Diffstat (limited to 't')
| -rw-r--r-- | t/op/taint.t | 1 |
1 files changed, 0 insertions, 1 deletions
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; |