Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / tainted.pl

# This subroutine returns true if its argument is tainted, false otherwise.

sub tainted {
   local($@);
   eval { kill 0 * $_[0] };
   $@ =~ /^Insecure/;
}

1;