return () unless $pkt->answer;
for my $rr ($pkt->answer) {
next unless ($rr->type eq $type);
- next unless ($rr->name eq $zone);
+ next unless (lc($rr->name) eq lc($zone));
# only handle KSKs, i.e. keys with the SEP flag set
next if ($type eq 'DNSKEY' && !($rr->is_sep));
my $exit = shift;
print $fd "Usage: $PROGRAM_NAME overview|check-dlv|check-ds zone [zone...]\n";
- print $fd " $PROGRAM_NAME --dir <dir> overview|check-dlv|check-ds zone [zone...]\n";
+ print $fd " $PROGRAM_NAME --dir <dir> overview|check-dlv|check-ds\n";
print $fd " $PROGRAM_NAME --help\n";
exit $exit;
}