2 

     2 

     3 use v5.10;

     3 use v5.10;

     4 use strict;

     4 use strict;

     5 use warnings;

     5 use warnings;

     6 

     6 

     8 use File::Basename;

     7 use File::Basename;

     9 use Pod::Usage;

     8 use Pod::Usage;

    10 use Getopt::Long;

     9 use Getopt::Long;

    11 use File::Temp;

    10 use File::Temp;

    12 use IO::File;

    11 use IO::File;

    49             );

    48             );

    50         },

    49         },

    51     ) or pod2usage;

    50     ) or pod2usage;

    52 

    51 

    53     # merge the config and the defined options from commandline

    52     # merge the config and the defined options from commandline

    55 

    55 

    56     our $bind_dir = $config{bind_dir};

    56     our $bind_dir = $config{bind_dir};

    57     our $conf_dir = $config{zone_conf_dir};

    57     our $conf_dir = $config{zone_conf_dir};

    58 

    58 

    59     my @candidates = @ARGV ? zones(@ARGV) : changed_zones;

    59     my @candidates = @ARGV ? zones(@ARGV) : changed_zones;