[perl5.git] / lib / 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
79072805 LW	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;