This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RT 64804: tainting with index() of a constant
authorDavid Mitchell <davem@iabyn.com>
Tue, 28 Jun 2011 16:04:40 +0000 (17:04 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 28 Jun 2011 16:04:40 +0000 (17:04 +0100)
commit3b36395d31cf0a2f3a017505cd0ea857a7acb5d1
tree66bd2cef294a0070eff5f5b6f957ee31cc4a122c
parent0d1104b41d261582aa0acf80a85ad039e46c89d7
RT 64804: tainting with index() of a constant

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