Bump versions of charnames and Unicode::UCD after last patches
[p5sagit/p5-mst-13.2.git] / lib / tainted.pl
1 # This legacy library is deprecated and will be removed in a future
2 # release of perl.
3 # This subroutine returns true if its argument is tainted, false otherwise.
4 #
5
6 sub tainted {
7     local($@);
8     eval { kill 0 * $_[0] };
9     $@ =~ /^Insecure/;
10 }
11
12 1;