contrib/perl5/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;