detect taint mode in Perl 5.6.1

young_apprentice has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: detect taint mode in Perl 5.6.1 by JavaFan (Canon) on Mar 24, 2011 at 11:20 UTC
I don't have 5.6.1 handy, but this seems to work in 5.6.2, so it may work in 5.6.1 as well: `$ perl -T -MScalar::Util=tainted -wle 'print tainted $0 ? "Taint mode +on" : "Taint mode off"' Taint mode on $ perl -MScalar::Util=tainted -wle 'print tainted $0 ? "Taint mode +on" : "Taint mode off"' Taint mode off $` [download] And if in 5.6.1 Scalar::Util doesn't have tainted, something like: `$ perl -Twle 'eval {open my $fh, "+>$0"}; print $@ =~ /Insecure/ ? "Ta +int mode on" : "Taint mode off"' Taint mode on $ perl -wle 'eval {open my $fh, "+>$0"}; print $@ =~ /Insecure/ ? "Ta +int mode on" : "Taint mode off"' Taint mode off $` [download]	[reply] [d/l] [select]
Re^2: detect taint mode in Perl 5.6.1 by Anonymous Monk on Mar 24, 2011 at 22:04 UTC
http://search.cpan.org/dist/perl-5.6.1/pod/perlfaq7.pod#How_can_I_tell_if_a_variable_is_tainted? `sub is_tainted { return ! eval { join('',@_), kill 0; 1; }; }` [download]	[reply] [d/l]