cosmetical
authorHeiko Schlittermann <hs@schlittermann.de>
Sun, 23 Jan 2011 22:34:12 +0100
changeset 95 cb92affcf59f
parent 94 54252e5987f2
child 96 26c6306bd9cc
cosmetical
bin/zone-ls
--- 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" };