diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-01-02 16:39:23 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-01-02 16:39:23 -0600 |
commit | 778a33fea1d6d13844f127f492444602d902a002 (patch) | |
tree | 981cb2438a6f570aa9477729d8083974e9751743 | |
parent | 0a813e0f404bb31d1af1e3ccf9341e5b6aed5659 (diff) | |
download | im-engine-plugin-commands-master.tar.gz im-engine-plugin-commands-master.zip |
-rw-r--r-- | lib/IM/Engine/Plugin/Commands.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/IM/Engine/Plugin/Commands.pm b/lib/IM/Engine/Plugin/Commands.pm index e13c502..b18527d 100644 --- a/lib/IM/Engine/Plugin/Commands.pm +++ b/lib/IM/Engine/Plugin/Commands.pm @@ -177,7 +177,7 @@ around commands => sub { sub command_list { my $self = shift; - return sort map { s/.*:://; lc } $self->commands; + return (sort map { (my $cmd = $_) =~ s/.*:://; lc($cmd) } $self->commands); } sub is_command { |