diff options
author | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2013-08-06 19:16:26 -0700 |
---|---|---|
committer | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2013-08-06 19:16:26 -0700 |
commit | a80db9341d1f0e9cbac80aa0965f7b43e9d364c6 (patch) | |
tree | 43d52f15097e7dd7272cc5f98782d2d57e4e8033 | |
parent | 5a8be44f68eb0b70ad3ceb28c1e9f790d2af143f (diff) | |
download | carton-a80db9341d1f0e9cbac80aa0965f7b43e9d364c6.tar.gz |
remove globs auto-generated by can(). Fix #123
-rw-r--r-- | lib/Carton/CLI.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 { |