Fixed tab in presentation

1 files changed, 8 insertions, 6 deletions

diff --git a/scripts/mana b/scripts/mana
index f6e26cc..329f3b2 100755
--- a/scripts/mana
+++ b/scripts/mana
@@ -62,11 +62,11 @@ my %modules = (
             exec => '/usr/bin/rpmdragora',
             descr => "rpmdragora: rpm install manager",
         },
-        update   => {
+        update  => {
             exec => '/usr/bin/dragoraUpdate',
-            descr => "dragoraUpdate rpm update manager",
+            descr => "dragoraUpdate: rpm update manager",
         },
-);	
+);
 
 my $cmdline = new yui::YCommandLine;
 
@@ -109,10 +109,12 @@ sub usage {
     print "Usage mana --help | -h        print this help\n";
     print "Usage mana <command> [args...]\n\n";
     print "valid <commands>:\n";
-# TODO better presentation
-    while ( my ($key, $value) = each(%modules) ) {
-        print "<" . $key . ">\t\t". $value->{descr} . "\n";
+
+    foreach my $key (sort keys %modules) {
+        # lenght + 2 chars "<" and ">"
+        print "<" . $key . (length $key >= 6 ? ">\t" : ">\t\t") . $modules{$key}->{descr} . "\n";
     }
+
     print "\n";
     exit(0);
 }