aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorHartmut Goebel <h.goebel@crazy-compilers.com>2014-03-25 18:19:18 +0100
committerPascal Terjan <pterjan@gmail.com>2014-03-25 22:29:52 +0000
commite466557e13a03fc2f85a0f0f8941d9dbd6ea8e76 (patch)
treef7d910921b415f80ff90d1f062529047f1b240f5 /lib
parent94631922a00ce60bb3bd4b7626fa2a23acf0e894 (diff)
downloadiurt-e466557e13a03fc2f85a0f0f8941d9dbd6ea8e76.tar
iurt-e466557e13a03fc2f85a0f0f8941d9dbd6ea8e76.tar.gz
iurt-e466557e13a03fc2f85a0f0f8941d9dbd6ea8e76.tar.bz2
iurt-e466557e13a03fc2f85a0f0f8941d9dbd6ea8e76.tar.xz
iurt-e466557e13a03fc2f85a0f0f8941d9dbd6ea8e76.zip
Enhance readability of --config-help output: remove leading spaces.
Diffstat (limited to 'lib')
-rw-r--r--lib/Iurt/Config.pm11
1 files changed, 4 insertions, 7 deletions
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";
}