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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Nov 10 01:37:26 2008
New Revision: 16795

Added:
   Prophet/trunk/lib/
      - copied from r16794, /Prophet/trunk/lib/
Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/CLI.pm

Log:
 r17675 at sunnavys-mb:  sunnavy | 2008-11-10 14:23:04 +0800
 limit the alias regex to only match from the beginning


Modified: Prophet/trunk/lib/Prophet/CLI.pm
==============================================================================
--- /Prophet/trunk/lib/Prophet/CLI.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI.pm	Mon Nov 10 01:37:26 2008
@@ -92,7 +92,7 @@
     my $cmd = $ori_cmd;
     my $aliases = $self->app_handle->config->aliases;
     for my $key ( keys %$aliases ) {
-        if ( $cmd =~ /$key/ ) {
+        if ( $cmd =~ /^$key/ ) {
             my $value    = $aliases->{$key};
             no strict 'refs';