chiark / gitweb /
syntax error
authorianmdlvl <ianmdlvl>
Mon, 31 Dec 2001 02:32:35 +0000 (02:32 +0000)
committerianmdlvl <ianmdlvl>
Mon, 31 Dec 2001 02:32:35 +0000 (02:32 +0000)
scripts/named-conf

index 0a80b01..cee3774 100755 (executable)
@@ -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,