mirror of
https://github.com/freebsd/freebsd-src
synced 2024-11-05 18:22:52 +00:00
9 lines
164 B
Perl
9 lines
164 B
Perl
# This subroutine returns true if its argument is tainted, false otherwise.
|
|
|
|
sub tainted {
|
|
local($@);
|
|
eval { kill 0 * $_[0] };
|
|
$@ =~ /^Insecure/;
|
|
}
|
|
|
|
1;
|