diff options
| author | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2014-03-25 18:19:18 +0100 |
|---|---|---|
| committer | Pascal Terjan <pterjan@gmail.com> | 2014-03-25 22:29:52 +0000 |
| commit | e466557e13a03fc2f85a0f0f8941d9dbd6ea8e76 (patch) | |
| tree | f7d910921b415f80ff90d1f062529047f1b240f5 | |
| parent | 94631922a00ce60bb3bd4b7626fa2a23acf0e894 (diff) | |
| download | iurt-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.
| -rw-r--r-- | lib/Iurt/Config.pm | 11 |
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"; } |