From e466557e13a03fc2f85a0f0f8941d9dbd6ea8e76 Mon Sep 17 00:00:00 2001
From: Hartmut Goebel <h.goebel@crazy-compilers.com>
Date: Tue, 25 Mar 2014 18:19:18 +0100
Subject: Enhance readability of --config-help output: remove leading spaces.

---
 lib/Iurt/Config.pm | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'lib/Iurt/Config.pm')

diff --git a/lib/Iurt/Config.pm b/lib/Iurt/Config.pm
index c793cba..8426b03 100644
--- a/lib/Iurt/Config.pm
+++ b/lib/Iurt/Config.pm
@@ -47,16 +47,13 @@ Return true.
 
 sub config_usage {
     my ($config_usage, $config) = @_;
-	print "
-	
-	Iurt configuration keywords:
-	
-";
+	print "\nIurt configuration keywords:\n\n";
     $Data::Dumper::Indent = 0;
     $Data::Dumper::Terse = 1;
     foreach my $k (sort keys %$config_usage) {
-	print "	$k: $config_usage->{$k}{desc} 
-			default: ", Data::Dumper->Dump([ $config_usage->{$k}{default} ]), ", current: ", Data::Dumper->Dump([ $config->{$k} ]), "\n";
+	print ("  $k: $config_usage->{$k}{desc}\n\t\tdefault: ",
+	       Data::Dumper->Dump([ $config_usage->{$k}{default} ]),
+	       ", current: ", Data::Dumper->Dump([ $config->{$k} ]), "\n");
     }
     print "\n\n";
 }
-- 
cgit v1.2.1