From: Michael Tremer <michael.tremer@ipfire.org>
Date: Tue, 7 Jan 2020 13:46:11 +0000 (+0000)
Subject: dns.cgi: Remove smartmatch operator
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=71471d9bded39dc2186a96b0eb7d5f18c103636f;p=people%2Fstevee%2Fipfire-2.x.git

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 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;
 }