--- a/t/00-basic.t	Wed Jun 22 13:49:16 2016 +0200
+++ b/t/00-basic.t	Fri Jun 24 11:55:05 2016 +0200
@@ -26,7 +26,9 @@
       )
     {
         my ($domain, $port) = @$_;
-        my (@tlsa) = map { /^_$port._tcp.\S+\s+\d+\s+IN\s+TLSA\s+(.*\n)/i }
+
+        #my (@tlsa) = map { /^_$port._tcp.\S+\s+\d+\s+IN\s+TLSA\s+(.*\n)/i }
+        my (@tlsa) = map { /^_$port._tcp.\S+\s+\d+\s+IN\s+TLSA\s+(.*)\n/i }
           `dig tlsa _$port._tcp.$domain`;
 
     #is get_tlsa_from_dns($domain, $port), $tlsa[0] => "TLSA for $domain:$port";