projects / platform / upstream / perl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 0d1104b) | patch
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
tree66bd2cef294a0070eff5f5b6f957ee31cc4a122ctree | snapshot
parent0d1104b41d261582aa0acf80a85ad039e46c89d7commit | diff
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 diff | blob | history
t/op/taint.t diff | blob | history
Domain: System / Base;