From 778a33fea1d6d13844f127f492444602d902a002 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 2 Jan 2010 16:39:23 -0600
Subject: cleanups

---
 lib/IM/Engine/Plugin/Commands.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 {
-- 
cgit v1.2.3