diff options
| -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"; } |