[OpenSPARC-T2-SAM] / sam-t2 / devtools / v8plus / 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;
Commit	Line	Data
920dae64 AT	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;