[perl #73560] [PATCH] Fix typos in Pod::Functions
[p5sagit/p5-mst-13.2.git] / lib / tainted.pl
CommitLineData
e9a927b5 1# This legacy library is deprecated and will be removed in a future
2# release of perl.
79072805 3# This subroutine returns true if its argument is tainted, false otherwise.
e9a927b5 4#
79072805 5
6sub tainted {
7 local($@);
8 eval { kill 0 * $_[0] };
9 $@ =~ /^Insecure/;
10}
11
121;