[p5sagit/p5-mst-13.2.git] / lib / tainted.pl

# This legacy library is deprecated and will be removed in a future
# release of perl.
# This subroutine returns true if its argument is tainted, false otherwise.
#

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

1;
Commit	Line	Data
e9a927b5	1	# This legacy library is deprecated and will be removed in a future
e9a927b5	2	# release of perl.
79072805	3	# This subroutine returns true if its argument is tainted, false otherwise.
e9a927b5	4	#
79072805	5
	6	sub tainted {
	7	local($@);
	8	eval { kill 0 * $_[0] };
	9	$@ =~ /^Insecure/;
	10	}
	11
	12	1;