Fix ref \\

diff --git a/scripts/named-conf b/scripts/named-conf
index cee377400ffc8916cccf0a9ad7a2c3d1b41c843a..9360c6d59e5bb58f2511c5b4963027d4b5ed1be0 100755 (executable)
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -263,7 +263,7 @@ sub zone_check () {
            next if $nsrrset_checked{$ns}++;
            push @to_check_soa, $addr, $why;
            zone_check_nsrrset($super_ns_addr,"$addr, $wa",
            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");
        } elsif (($addr,$wa) = @to_check_soa) {
            next if !$soa_checked{$ns}++;
            zone_check_soa($addr,"$addr, $wa");


@@ -274,13 +274,13 @@ sub zone_check () {
 
 sub zone_consistency() {
     my ($d, $org_ser, $origin, $a, $showok);
 
 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}; }
     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) {
     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 ?";
     if ($cfg->{'style'} eq 'primary') {
        foreach $org_ser (keys %soas) {
            $org_ser =~ m/^(\S+) \d+$/ or die "$org_ser ?";


@@ -301,7 +301,7 @@ sub zone_consistency() {
     }
 }
 
     }
 }
 

-sub zone_consistency_set ($\%) {
+sub zone_consistency_set ($%) {

     my ($msg,$set) = @_;
     my ($d,$o);
     if (keys(%$set) != 1) {
     my ($msg,$set) = @_;
     my ($d,$o);
     if (keys(%$set) != 1) {


@@ -339,7 +339,7 @@ sub zone_check_soa ($$) {
     }
 }
 
     }
 }
 

-sub zone_check_nsrrset ($$\%\%) {
+sub zone_check_nsrrset ($$$$) {

     my ($uaddr,$ww, $delgs_or_auths,$glueless_ok) = @_;
     my (@s, $s, %s2g, @glue, $glue);
     dig::dig({
     my ($uaddr,$ww, $delgs_or_auths,$glueless_ok) = @_;
     my (@s, $s, %s2g, @glue, $glue);
     dig::dig({