From 87baf9f357728a69c8b84cd0154ad3f3e4dac2b6 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Thu, 19 Apr 2012 22:53:12 +0200
Subject: some restructuring

---
 Loadbars/HelpDispatch.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'Loadbars/HelpDispatch.pm')

diff --git a/Loadbars/HelpDispatch.pm b/Loadbars/HelpDispatch.pm
index 1c28c29..dfee7f5 100644
--- a/Loadbars/HelpDispatch.pm
+++ b/Loadbars/HelpDispatch.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Loadbars::Constants;
+use Loadbars::Shared;
 
 sub create () {
     my $hosts = '';
@@ -111,7 +112,7 @@ END
         cluster => {
             menupos => 6,
             help    => 'Cluster name from /etc/clusters',
-            var     => \$Loadbars::Main::C{cluster},
+            var     => \$C{cluster},
             mode    => 6,
             type    => 's'
         },
@@ -316,7 +317,8 @@ END
                   . $d{$_}{type} => (
                     defined $d{$_}{var}
                     ? $d{$_}{var}
-                    : \$Loadbars::Main::C{$_} );
+                    : \$C{$_}
+                  );
 
               } grep {
                 $d{$_}{mode} & 4 and exists $d{$_}{type};
@@ -333,9 +335,11 @@ END
             defined $_->[1]
 
           } map {
-            [ $_ => exists $d{$_}{var}
+            [
+                $_ => exists $d{$_}{var}
                 ? ${ $d{$_}{var} }
-                : $Loadbars::Main::C{$_} ]
+                : $C{$_}
+            ]
 
           } keys %d;
     };
-- 
cgit v1.2.3