extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.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;