[Bps-public-commit] r15489 - in sd/branches/dispatcher: lib/App/SD/CLI

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 26 11:32:48 2008
New Revision: 15489

Modified:
   sd/branches/dispatcher/   (props changed)
   sd/branches/dispatcher/lib/App/SD/CLI/Dispatcher.pm

Log:
 r70384 at onn:  sartak | 2008-08-26 11:32:41 -0400
 Resolve builtin aliases for sd commands


Modified: sd/branches/dispatcher/lib/App/SD/CLI/Dispatcher.pm
==============================================================================
--- sd/branches/dispatcher/lib/App/SD/CLI/Dispatcher.pm	(original)
+++ sd/branches/dispatcher/lib/App/SD/CLI/Dispatcher.pm	Tue Aug 26 11:32:48 2008
@@ -14,12 +14,12 @@
     my $cli = shift;
     my %args = @_;
 
-    my @pieces = @{ $args{dispatching_on} };
+    my @pieces = map { ucfirst lc $_ } __PACKAGE__->resolve_builtin_aliases(@{ $args{dispatching_on} });
 
     my @possible_classes;
     while (@pieces) {
         push @possible_classes, "App::SD::CLI::Command::"
-                              . join '::', map { ucfirst lc $_ } @pieces;
+                              . join '::', @pieces;
         shift @pieces;
     }