# HG changeset patch
# User pesch
# Date 1463002892 -7200
# Node ID a2ce475700961bb58da8b8aa570f7b5985d8a142
# Parent  10fc0d468fecc9aaafc515e002229908c617c34c
removed unnecessary things

diff -r 10fc0d468fec -r a2ce47570096 check_tlsa
--- a/check_tlsa	Wed May 11 23:34:19 2016 +0200
+++ b/check_tlsa	Wed May 11 23:41:32 2016 +0200
@@ -196,14 +196,12 @@
     open(my $filehandle, '<', $domainlist);
 
     my $pattern = '^(?<domain>\S*\.[a-z]{2,4}?):{0,1}(?<port>[0-9]*$)';
-    my %domain2check;
     while (<$filehandle>) {
         if (/$pattern/ig) {
             $domain = $+{domain};
 
             if ("$+{port}" =~ /^\s*$/) { $port = '443'; }
             else { $port   = $+{port}; }
-            $domain2check{$domain} = $port;
 
             check_tlsa($domain, $port);
         }