Initial bulk commit for "Git on MSys"
[msysgit/historical-msysgit.git] / lib / perl5 / 5.6.1 / tainted.pl
blob6e24867a83dd43570a7d21ed3827eb39f28f2a6f
1 # This subroutine returns true if its argument is tainted, false otherwise.
3 sub tainted {
4 local($@);
5 eval { kill 0 * $_[0] };
6 $@ =~ /^Insecure/;
9 1;