[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;
Commit	Line	Data
86530b38 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;