This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deprecate stat.pl with a warning
[perl5.git] / lib / tainted.pl
CommitLineData
79072805
LW
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;