What output do you get for perl -V?
Works for me for pretty much any perl 5.8/5.12/5.14/5.16
$ perl -MScalar::Util=tainted -Te " $value = shift; warn tainted $valu +e; if( $value =~ /^([\w|\s|\/|\-]+)$/ ){ $value = $1; } die tainted $value; " x123uvw1 1 at -e line 1. 0 at -e line 1.
In reply to Re^3: taint mode
by Anonymous Monk
in thread taint mode
by McGaida
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |