[Summary view] [Print] [Text view]

   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;