diff options
| author | Paul Buetow <paul@buetow.org> | 2012-04-19 22:53:12 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2012-04-19 22:53:12 +0200 |
| commit | 87baf9f357728a69c8b84cd0154ad3f3e4dac2b6 (patch) | |
| tree | 2c8b2fea19afa2a5f3c91687c46f2d4cfec14e8f /Loadbars/HelpDispatch.pm | |
| parent | c16d12685eaeb94a57dcd6d72945d7d892561e5e (diff) | |
some restructuring
Diffstat (limited to 'Loadbars/HelpDispatch.pm')
| -rw-r--r-- | Loadbars/HelpDispatch.pm | 12 |
1 files changed, 8 insertions, 4 deletions
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; }; |