RT 64804: tainting with index() of a constant
authorDavid Mitchell <davem@iabyn.com>
Tue, 28 Jun 2011 16:04:40 +0000 (17:04 +0100)
committerRicardo Signes <rjbs@cpan.org>
Thu, 9 Aug 2012 20:04:11 +0000 (16:04 -0400)
commitee4a2a70c059f719bca4701c84452297d9cc153f
tree6dbdcc9836d476a0164dcb2f99528364e8108d8a
parent507850aafa6bf27a90983ea5d2e9c7da0f29d77b
RT 64804: tainting with index() of a constant

Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=64804
Bug-Debian: http://bugs.debian.org/291450
Origin: upstream, http://perl5.git.perl.org/perl.git/commit/3b36395d31cf0a2f3a017505cd0ea857a7acb5d1

At compile time, ck_index with a tainted constant set PL_tainted,
which remained on during the rest of compilation, tainting all other
constants.

Fix this by saving and restoring PL_tainted across the call to
fbm_compile, which is what sets PL_tainted.
op.c
t/op/taint.t