From ab87b76a531e2a1d7628e8e7e72c51de25cac7da Mon Sep 17 00:00:00 2001
From: Tom Hughes <tom@compton.nu>
Date: Sat, 8 Feb 2020 11:01:05 +0000
Subject: [PATCH] Fix perl warning

---
 bin/mkgeo | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/mkgeo b/bin/mkgeo
index 76316b0..27876b8 100755
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -544,7 +544,7 @@ sub output_server
             {
                 my $ipv6 = $server->{ipv6};
 
-                $ipv6 =~ s/([0-9a-f]{4})(?=.)/\1:/ig;
+                $ipv6 =~ s/([0-9a-f]{4})(?=.)/$1:/ig;
 
                 $zonefile->printf("3${name}:$server->{ipv6}:600\n", $index + 1);
                 $jszonefile->printf("  AAAA(\"${jsname}\", \"${ipv6}\", TTL(\"10m\")),\n", $index + 1);
-- 
2.39.5