From 2db8632211ab784b7f0f0179614b705d5e0293d9 Mon Sep 17 00:00:00 2001
From: ianmdlvl <ianmdlvl>
Date: Mon, 31 Dec 2001 02:57:46 +0000
Subject: [PATCH] Fix ref \\

---
 scripts/named-conf | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/scripts/named-conf b/scripts/named-conf
index cee3774..9360c6d 100755
--- 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",
-			       %$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");
@@ -274,13 +274,13 @@ sub zone_check () {
 
 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 ?";
@@ -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) {
@@ -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({
-- 
2.30.2