perl/lib/tainted.pl

# This subroutine returns true if its argument is tainted, false otherwise.

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

1;
Revision:	1.1
Committed:	Thu Jun 30 14:27:09 2005 UTC (21 years, 3 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	PERL-5-8-7, HEAD
Branch point for:	PERL
Log Message:	* empty log message *
#	Content
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;