This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
6e24867a83dd43570a7d21ed3827eb39f28f2a6f
[perl5.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;