extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.git] / lib / tainted.pl
CommitLineData
79072805 1# This subroutine returns true if its argument is tainted, false otherwise.
2
3sub tainted {
4 local($@);
5 eval { kill 0 * $_[0] };
6 $@ =~ /^Insecure/;
7}
8
91;