From: ianmdlvl <ianmdlvl>
Date: Mon, 31 Dec 2001 02:32:35 +0000 (+0000)
Subject: syntax error
X-Git-Tag: debian_version_2_2_0~49
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=commitdiff_plain;h=1a320384bf338f93d3c42974750b57d97202a8dd;hp=076f82b1a1d9f5d154b4ecb4a93dba1456a5d9f5

syntax error
---

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,