bin/zone-ls
changeset 95 cb92affcf59f
parent 85 c47953192c5c
child 113 30bd047cd057
--- 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" };