dns.cgi: Remove smartmatch operator

Perl likes to make things difficult

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/html/cgi-bin/dns.cgi b/html/cgi-bin/dns.cgi
index 42fd8002aad23adf845def474dac74bf5e4a19ea..a66b1ed08d5150246420ef78f2856937d3498457 100755 (executable)
--- a/html/cgi-bin/dns.cgi
+++ b/html/cgi-bin/dns.cgi
@@ -814,7 +814,7 @@ sub check_nameserver($$$$) {
        }
 
        my $aware = ($output =~ m/RRSIG/);
-       my $validating = ("ad;" ~~ @flags);
+       my $validating = (grep(/ad;/, @flags));
 
        return $aware + $validating;
 }