our $TODO should be local $::TODO, revealing a bug in the de-commenting regexp.
[perl.git] / lib / tainted.pl
1 # This subroutine returns true if its argument is tainted, false otherwise.
2
3 sub tainted {
4     local($@);
5     eval { kill 0 * $_[0] };
6     $@ =~ /^Insecure/;
7 }
8
9 1;