From 1a320384bf338f93d3c42974750b57d97202a8dd Mon Sep 17 00:00:00 2001
From: ianmdlvl <ianmdlvl>
Date: Mon, 31 Dec 2001 02:32:35 +0000
Subject: [PATCH] syntax error

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

diff --git a/scripts/named-conf b/scripts/named-conf
index 0a80b01..cee3774 100755
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -221,14 +221,13 @@ sub zone_warnmore ($) {
     print STDERR " $_[0]\n" or die $!;
 }
 
-use vars qw(%delgs # $delgs{$nameserver_list} = [ $whosaidandwhy ]
-	    %auths # $auths{$nameserver_list} = [ $whosaidandwhy ]
-	    %glue  # $glue{$name}{$addr_list} = [ $whosaidandwhy ]
-	    %soas  # $soa{"$origin $serial"} = [ $whosaidandwhy ]
-	    @to_check # ($addr,$whyask,\%delgs_or_auths,$glueless_ok, ...)
-	    @to_check_soa # ($addr,$whyask, ...)
-	    %addr_is_ok
-	    );
+use vars qw(%delgs); # $delgs{$nameserver_list} = [ $whosaidandwhy ]
+use vars qw(%auths); # $auths{$nameserver_list} = [ $whosaidandwhy ]
+use vars qw(%glue);  # $glue{$name}{$addr_list} = [ $whosaidandwhy ]
+use vars qw(%soas);  # $soa{"$origin $serial"} = [ $whosaidandwhy ]
+use vars qw(@to_check); # ($addr,$whyask,\%delgs_or_auths,$glueless_ok, ...)
+use vars qw(@to_check_soa); # ($addr,$whyask, ...)
+use vars qw(%addr_is_ok);
 
 sub zone_check () {
     my ($super_zone, @super_nsnames,
-- 
2.30.2