t2acl: Regexp syntax fix to make modern perl happy

hessu · Sep 30, 2023 · b5581f0 · b5581f0
1 parent c67551b
commit b5581f0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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");
 	}