From 8c48dff089e1bed1f6a9f4cbb8967d692254782d Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Wed, 10 Aug 2011 07:02:20 +0000
Subject: Some help text moved on top

---
 loadbars.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'loadbars.pl')

diff --git a/loadbars.pl b/loadbars.pl
index 207828b..20ab47b 100755
--- a/loadbars.pl
+++ b/loadbars.pl
@@ -631,17 +631,16 @@ END
 			}
 
 		} elsif ($arg eq 'hotkeys') {
-			(join "\n", map { 
+			$textdesc . "Hotkeys:\n" .  (join "\n", map { 
 				"$_\t- $d_by_short{$_}{help}" 
 
 			} grep { 
 			   	$d_by_short{$_}{mode} & 1 and exists $d_by_short{$_}{help};
 
-			} sort { $d_by_short{$a}{menupos} <=> $d_by_short{$b}{menupos} } sort keys %d_by_short)
-				. "\n$textdesc";
+			} sort { $d_by_short{$a}{menupos} <=> $d_by_short{$b}{menupos} } sort keys %d_by_short);
 
 		} elsif ($arg eq 'usage') {
-			(join "\n", map { 
+			$textdesc .  (join "\n", map { 
 					if ($_ eq 'help') {
 			   		"--$_\t\t- $d{$_}{help}" 
 					} else {
@@ -651,8 +650,7 @@ END
 			} grep { 
 			   	$d{$_}{mode} & 2 and exists $d{$_}{help} 
 
-			} sort { $d{$a}{menupos} <=> $d{$b}{menupos} } sort keys %d)
-				. "\n$textdesc";
+			} sort { $d{$a}{menupos} <=> $d{$b}{menupos} } sort keys %d);
 
 		} elsif ($arg eq 'options') {
 			map { 
-- 
cgit v1.2.3