Unverified Commit 75677660 authored by IKEDA Soji's avatar IKEDA Soji Committed by GitHub
Browse files

Merge pull request #805 from ikedas/issue-783 by ikedas

Fixing #783
parents 2ac79f10 09f7e0ec
......@@ -3329,10 +3329,13 @@ sub _check_dmarc_rr {
my $packet = $dns->query("_dmarc.$domain", 'TXT');
next unless $packet;
($rrstr) =
map { $_->string }
grep { $_->type eq 'TXT' and $_->string =~ /\Av=DMARC/i }
$packet->answer;
($rrstr) = grep { $_ and $_ =~ /\Av=DMARC/i } map {
# Note: txtdata() of Net::DNS::RR::TXT >=0.69 returns array of
# text fragments in array context. Take care to get values in
# scalar context.
my $rrstr = $_->txtdata if $_->type eq 'TXT';
$rrstr;
} $packet->answer;
last if $rrstr;
} continue {
$domain =~ s/\A[^.]*[.]//;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment