From b5581f0032b9b87498945697f300345712a907c7 Mon Sep 17 00:00:00 2001
From: Heikki Hannikainen <hessu@hes.iki.fi>
Date: Sat, 30 Sep 2023 17:33:41 +0300
Subject: [PATCH] t2acl: Regexp syntax fix to make modern perl happy

---
 src/tools/t2acl.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tools/t2acl.pl b/src/tools/t2acl.pl
index a0977bc3..71917227 100755
--- a/src/tools/t2acl.pl
+++ b/src/tools/t2acl.pl
@@ -53,7 +53,7 @@ sub isip6 {
 	
 	$s = "";
 	foreach $w (@l) {
-		if ($w =~ /[0-9a-f]{1-4}/) { return ""; }
+	        if ($w !~ /^[0-9a-f]{1,4}$/) { return ""; }
 		$repl = '0' x (4 - length($w));
 		$s .= pack("H4", "$repl$w");
 	}