Fix perl warning

This commit is contained in:
Jamie Cameron
2020-10-19 10:16:08 -07:00
parent 4f21870885
commit d5331075bb

View File

@@ -103,7 +103,7 @@ sub get_bind_version
{
if (&has_command($config{'named_path'})) {
my $out = &backquote_command("$config{'named_path'} -v 2>&1");
if ($out =~ /(bind|named)\s+([0-9\.]+)/i) {
if ($out && $out =~ /(bind|named)\s+([0-9\.]+)/i) {
return $2;
}
}