dns.cgi: Remove smartmatch operator

Perl likes to make things difficult

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Michael Tremer
2020-01-07 13:46:11 +00:00
parent dab1258a78
commit 71471d9bde

View File

@@ -814,7 +814,7 @@ sub check_nameserver($$$$) {
}
my $aware = ($output =~ m/RRSIG/);
my $validating = ("ad;" ~~ @flags);
my $validating = (grep(/ad;/, @flags));
return $aware + $validating;
}