--- a/sbin/update-serial	Thu Jun 30 15:19:33 2011 +0200
+++ b/sbin/update-serial	Thu Jun 30 16:24:32 2011 +0200
@@ -45,19 +45,20 @@
         "h|help"            => sub { pod2usage(-exit => 0, -verbose => 1) },
         "m|man"             => sub {
             pod2usage(
-                -exit => 0,
-                -verbose   => 2,
-                # "system('perldoc -V &>/dev/null')" appears shorter, but may not
-                # do what you expect ( it still returns 0 on debian squeeze with
-                # dash as system shell even if cannot find the command in $PATH)
+                -exit    => 0,
+                -verbose => 2,
+
+               # "system('perldoc -V &>/dev/null')" appears shorter, but may not
+               # do what you expect ( it still returns 0 on debian squeeze with
+               # dash as system shell even if cannot find the command in $PATH)
                 -noperldoc => system('perldoc -V >/dev/null 2>&1')
             );
         }
     ) or pod2usage;
 
     # merge the config and the defined options from commandline
-    my @configs = ( "dnstools.conf", "$ENV{HOME}/.dnstools.conf",
-        "/etc/dnstools.conf");
+    my @configs =
+      ("dnstools.conf", "$ENV{HOME}/.dnstools.conf", "/etc/dnstools.conf");
     unshift @configs, $ENV{DNSTOOLS_CONF} if defined $ENV{DNSTOOLS_CONF};
     %config = get_config @configs, \%opt;
 
@@ -72,9 +73,13 @@
     push @candidates, end_rollover(@done_rollover);
 
     foreach my $zone (uniq(@candidates)) {
-#        say "XXX: candidate $zone";
+
+        #        say "XXX: candidate $zone";
         update_serial($zone);
-        sign($zone) if dnssec_enabled($zone, "$config{master_dir}/$config{indexzone}/$config{indexzone}");
+        sign($zone)
+          if dnssec_enabled($zone,
+                  "$config{master_dir}/$config{indexzone}/$config{indexzone}");
+
 #        say "XXX: $zone should be signed" if dnssec_enabled($zone, "$config{master_dir}/$config{indexzone}/$config{indexzone}");
     }