diff -r 20874d23e7ed -r 0f95ea2ef883 t/00-basic.t --- 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";