From 3e3e0d48f2ec1f8163bcb89f9b717f4538f44f38 Mon Sep 17 00:00:00 2001
From: Dan Church <amphetamachine@gmail.com>
Date: Sun, 9 Oct 2022 13:28:57 -0500
Subject: [PATCH] Also block IPv6 address lookups

---
 make-block.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/make-block.pl b/make-block.pl
index 47ff838..502627d 100755
--- a/make-block.pl
+++ b/make-block.pl
@@ -54,7 +54,7 @@ sub add_host_file {
 
 MAIN: {
     my $out;
-    my $block_ip = '0.0.0.0';
+    my $block_ip = '0.0.0.0 ::1';
     my $workdir = &dirname($0);
 
     unless (&GetOptions(
@@ -82,9 +82,13 @@ MAIN: {
         open $fho, '>', $out
             or die "Failed to open file $out for writing: $!";
     }
+    my @block_ip = sort split /\s+/, $block_ip;
     print $fho map {
         ++$written;
-        "$block_ip $_\n"
+        my $domain = $_;
+        map {
+            "$_ $domain\n"
+        } @block_ip;
     } sort keys %domains;
 
     printf STDERR "%d domains written to %s from\n", $written, $out;