mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
9 lines
164 B
9 lines
164 B
# This subroutine returns true if its argument is tainted, false otherwise.
|
|
|
|
sub tainted {
|
|
local($@);
|
|
eval { kill 0 * $_[0] };
|
|
$@ =~ /^Insecure/;
|
|
}
|
|
|
|
1;
|