syntax error

diff --git a/scripts/named-conf b/scripts/named-conf
index 0a80b015fd5bbaff7df0e5e585023f3e943407a1..cee377400ffc8916cccf0a9ad7a2c3d1b41c843a 100755 (executable)
--- 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,