From: oliver Date: Thu, 9 Apr 2009 21:33:40 +0000 (+0000) Subject: resolve rt.cpan#43808 infinite recursion on Plugin::Commands when Plugin::Packages... X-Git-Tag: v1.003015~61 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=commitdiff_plain;h=deda07fbc838971b06930a8f953928fe9d4786a9;hp=c1c8966706abed2189ab3ea1ff358ac298930625 resolve rt.cpan#43808 infinite recursion on Plugin::Commands when Plugin::Packages not loaded git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@5876 bd8105ee-0ff8-0310-8827-fb3f25b6796d --- diff --git a/lib/Devel/REPL/Plugin/Commands.pm b/lib/Devel/REPL/Plugin/Commands.pm index a4c8fcf..645d842 100644 --- a/lib/Devel/REPL/Plugin/Commands.pm +++ b/lib/Devel/REPL/Plugin/Commands.pm @@ -13,6 +13,7 @@ has 'command_set' => ( sub BEFORE_PLUGIN { my ($self) = @_; + $self->load_plugin('Packages'); unless ($self->can('setup_commands')) { $self->meta->add_method('setup_commands' => sub {}); }