From c105e2b011b4366f57711470fdebeb63f8450f24 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sat, 21 Oct 2017 17:50:57 -0700
Subject: [PATCH] Don't use ~~ as not all perl versions support it

---
 firewall/index.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/firewall/index.cgi b/firewall/index.cgi
index c86381986..88e0201c5 100755
--- a/firewall/index.cgi
+++ b/firewall/index.cgi
@@ -539,7 +539,7 @@ sub external_firewall_message
 	if ($filter->{'defaults'}->{'INPUT_ZONES'}) {
         	$fwname.='firewalld ';
         	}
-	if ($filter->{'defaults'} ~~ /^f2b-|^fail2ban-/ && ! $config{'filter_chain'} ) {
+	if ($filter->{'defaults'} =~ /^f2b-|^fail2ban-/ && !$config{'filter_chain'} ) {
         	$fwname.='fail2ban ';
         	}
 	# warning about not using direct