Fix perl warning

[dns.git] / bin / mkgeo

diff --git a/bin/mkgeo b/bin/mkgeo
index 76316b08e1b0b92032381cdd85ff00586c3fdf3f..27876b89a4becbd7de99e0f1d5260922d35be43b 100755 (executable)
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -544,7 +544,7 @@ sub output_server
             {
                 my $ipv6 = $server->{ipv6};
 
             {
                 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);
 
                 $zonefile->printf("3${name}:$server->{ipv6}:600\n", $index + 1);
                 $jszonefile->printf("  AAAA(\"${jsname}\", \"${ipv6}\", TTL(\"10m\")),\n", $index + 1);