Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / devtools / v9 / lib / perl5 / 5.8.8 / tainted.pl

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

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

1;