[Bps-public-commit] r16810 - in Prophet/trunk: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Nov 11 03:07:52 2008
New Revision: 16810

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/CLI/Command/Config.pm

Log:
 r17699 at sunnavys-mb:  sunnavy | 2008-11-11 16:04:18 +0800
 aliases need to be treated specially in config show


Modified: Prophet/trunk/lib/Prophet/CLI/Command/Config.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI/Command/Config.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI/Command/Config.pm	Tue Nov 11 03:07:52 2008
@@ -18,10 +18,18 @@
         print "$file\n";
     }
     print "\nYour configuration:\n\n";
-    for my $item ($config->list) {
-        print $item ." = ".$config->get($item)."\n";
+    for my $item ( $config->list ) {
+        if ( $item eq '_aliases' ) {
+            if ( my $aliases = $config->aliases ) {
+                for my $key ( keys %$aliases ) {
+                    print "alias $key = $aliases->{$key}\n";
+                }
+            }
+        }
+        else {
+            print $item . " = " . $config->get($item) . "\n";
+        }
     }
-
 }
 
 sub no_config_files {