next if $nsrrset_checked{$ns}++;
push @to_check_soa, $addr, $why;
zone_check_nsrrset($super_ns_addr,"$addr, $wa",
- %$delgs_or_auths,$glueless_ok);
+ $delgs_or_auths,$glueless_ok);
} elsif (($addr,$wa) = @to_check_soa) {
next if !$soa_checked{$ns}++;
zone_check_soa($addr,"$addr, $wa");
sub zone_consistency() {
my ($d, $org_ser, $origin, $a, $showok);
- zone_consistency_set('delegations',%delgs);
+ zone_consistency_set('delegations',\%delgs);
foreach $d (keys %delgs) { delete $auths{$d}; }
- zone_consistency_set('zone nameserver rrset',%auths);
+ zone_consistency_set('zone nameserver rrset',\%auths);
foreach $h (keys %glue) {
- zone_consistency_set("glue for $h", %{ $glue{$h} });
+ zone_consistency_set("glue for $h", $glue{$h});
}
- zone_consistency_set("SOA ORIGIN and SERIAL",%soas);
+ zone_consistency_set("SOA ORIGIN and SERIAL",\%soas);
if ($cfg->{'style'} eq 'primary') {
foreach $org_ser (keys %soas) {
$org_ser =~ m/^(\S+) \d+$/ or die "$org_ser ?";
}
}
-sub zone_consistency_set ($\%) {
+sub zone_consistency_set ($%) {
my ($msg,$set) = @_;
my ($d,$o);
if (keys(%$set) != 1) {
}
}
-sub zone_check_nsrrset ($$\%\%) {
+sub zone_check_nsrrset ($$$$) {
my ($uaddr,$ww, $delgs_or_auths,$glueless_ok) = @_;
my (@s, $s, %s2g, @glue, $glue);
dig::dig({