[carton] 391/472: remove globs auto-generated by can(). Fix #123

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit a80db9341d1f0e9cbac80aa0965f7b43e9d364c6
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Tue Aug 6 19:16:26 2013 -0700

    remove globs auto-generated by can(). Fix #123
---
 lib/Carton/CLI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm
index edc0765..4d287d3 100644
--- a/lib/Carton/CLI.pm
+++ b/lib/Carton/CLI.pm
@@ -78,7 +78,7 @@ sub commands {
 
     no strict 'refs';
     map { s/^cmd_//; $_ }
-        grep /^cmd_(.*)/, sort keys %{__PACKAGE__."::"};
+        grep { /^cmd_.*/ && $self->can($_) } sort keys %{__PACKAGE__."::"};
 }
 
 sub cmd_usage {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git