From 71471d9bded39dc2186a96b0eb7d5f18c103636f Mon Sep 17 00:00:00 2001
From: Michael Tremer <michael.tremer@ipfire.org>
Date: Tue, 7 Jan 2020 13:46:11 +0000
Subject: [PATCH] dns.cgi: Remove smartmatch operator

Perl likes to make things difficult

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
---
 html/cgi-bin/dns.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/html/cgi-bin/dns.cgi b/html/cgi-bin/dns.cgi
index 42fd8002aa..a66b1ed08d 100755
--- 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;
 }
-- 
2.39.5