This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[rt #111654] properly propgate tainted errors
authorTony Cook <tony@develop-help.com>
Sun, 11 Mar 2012 03:38:57 +0000 (14:38 +1100)
committerTony Cook <tony@develop-help.com>
Sun, 11 Mar 2012 23:09:45 +0000 (10:09 +1100)
commit05a1a0145d15cec87e1ea2fd2386895cc1658eb3
treef46e94b18c5678477e86aa3cc932a7c81ed65333
parentaf89892edf2ed1bf0c26d1b75e74d81410d8c81f
[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().
pp_sys.c
t/op/taint.t