Re^7: use re 'taint' with s/// operator

Replies are listed 'Best First'.
Re^8: use re 'taint' with s/// operator by JavaFan (Canon) on Nov 19, 2010 at 22:03 UTC
$ perl -TMScalar::Util=tainted -wE '$x = $0; say tainted $x; ($x) = ke +ys %{{$x => 1}}; say tainted $x' 1 0 $ perl -TMScalar::Util=tainted -wE '$x = $0; say tainted $x; $x = join + "", map {chr ord substr $x, $_, 1} 0 .. length($x) - 1; say tainted +$x' 1 0 $ perl -TMScalar::Util=tainted -wE '$x = $0; say tainted $x; $x = lc $ +x; say tainted $x' # May change the case of $x 1 0 $ perl -TMScalar::Util=tainted -wE '$x = $0; say tainted $x; $x = eval + qq["${\quotemeta $x}"] or die; say tainted $x' 1 0 [download] HTH, HAND, BrowserUk.	[reply] [d/l]
Re^9: use re 'taint' with s/// operator by BrowserUk (Patriarch) on Nov 19, 2010 at 22:16 UTC
What are you saying? That because Scalar::Util`::tainted` returns 0 rather than "Untainted", perlsec's use of that word is invalid?	[reply] [d/l]