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;