Re: detect taint mode in Perl 5.6.1

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]

Comment on Re: detect taint mode in Perl 5.6.1 Select or Download Code

Replies are listed 'Best First'.
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]