perl5.git.perl.org Git - perl5.git/blame_incremental

This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5

This page requires JavaScript to run. Use this page instead.

... / ...

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

Unnamed repository; edit this file 'description' to name the repository.