10 lines
164 B
Perl
10 lines
164 B
Perl
|
# This subroutine returns true if its argument is tainted, false otherwise.
|
||
|
|
|
||
|
|
sub tainted {
|
||
|
|
local($@);
|
||
|
|
eval { kill 0 * $_[0] };
|
||
|
|
$@ =~ /^Insecure/;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|