--- a/bin/zone-ls Sun Jan 23 22:22:57 2011 +0100
+++ b/bin/zone-ls Sun Jan 23 22:34:12 2011 +0100
@@ -10,7 +10,7 @@
use if $ENV{DEBUG} => "Smart::Comments";
use DNStools::Config qw(get_config);
-my %config;
+my %cf;
my $opt_expiry = undef;
MAIN: {
@@ -28,10 +28,10 @@
},
) or pod2usage;
- %config = get_config();
- die "$config{master_dir}: $!\n" if not -d $config{master_dir};
+ %cf = get_config();
+ die "$cf{master_dir}: $!\n" if not -d $cf{master_dir};
- foreach my $dir (grep { -d } glob "$config{master_dir}/*") {
+ foreach my $dir (grep { -d } glob "$cf{master_dir}/*") {
my $zone = basename($dir);
$info{$zone} = { status => "OK" };