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 *
#	User	Rev	Content
1	root	1.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;