3 use v5.10;

     3 use v5.10;

     4 use strict;

     4 use strict;

     5 use warnings;

     5 use warnings;

     6 use Pod::Usage;

     6 use Pod::Usage;

     7 use File::Basename;

     7 use File::Basename;

     9 use Time::Local;

     8 use Time::Local;

    10 use Getopt::Long;

     9 use Getopt::Long;

    11 use if $ENV{DEBUG} => "Smart::Comments";

    10 use if $ENV{DEBUG} => "Smart::Comments";

    12 use DNStools::Config qw(get_config);

    11 use DNStools::Config qw(get_config);

    13 

    12 

    27                 -noperldoc => system("perldoc -V &>/dev/null")

    26                 -noperldoc => system("perldoc -V &>/dev/null")

    28             );

    27             );

    29         },

    28         },

    30     ) or pod2usage;

    29     ) or pod2usage;

    31 

    30 

    33     die "$config{master_dir}: $!\n" if not -d $config{master_dir};

    32     die "$config{master_dir}: $!\n" if not -d $config{master_dir};

    34 

    33 

    35     foreach my $dir (grep { -d } glob "$config{master_dir}/*") {

    34     foreach my $dir (grep { -d } glob "$config{master_dir}/*") {

    36 

    35 

    37         my $zone = basename($dir);

    36         my $zone = basename($dir);