Opened by DerVersuch at 2010-01-14 22:01
Du hast recht, es verschleiert unnötigerweise die Absicht, die ich ausdrücken wollte.
Code: (dl
)
1
2
3
> perl -T -MScalar::Util=tainted -E'my ($foo) = @ARGV; say q(foo tainted? ) . tainted $foo; my ($u) = $foo =~ /(b)/; say q(u tainted? ) . tainted $u;' blah
foo tainted? 1
u tainted? 0