Merge Changelog

diff --git a/Changes b/Changes
index 2ea5eba..cf1695e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
   - Add doc to a bunch of plugins
   - Add DDC plugin (like DDS but Data::Dumper::Concise)
+1.3.9
+  - Fix scary Moose 0.98 box, adding a check for ->isa('Devel::REPL') in Meta/Plugin.pm
 1.3.8
   - resolve rt.cpan#44231 SIGINT does not quit the REPL just kills the line being edited
 1.3.7

diff --git a/lib/Devel/REPL.pm b/lib/Devel/REPL.pm
index e25ee46..2f63c6b 100644 (file)
--- a/lib/Devel/REPL.pm
+++ b/lib/Devel/REPL.pm
@@ -5,7 +5,7 @@ use Moose;
 use namespace::clean -except => [ 'meta' ];
 use 5.008001; # backwards compat, doesn't warn like 5.8.1
 
-our $VERSION = '1.003007'; # 1.3.7
+our $VERSION = '1.003009'; # 1.3.9
 
 with 'MooseX::Object::Pluggable';
 
@@ -408,6 +408,8 @@ Matt S Trout - mst (at) shadowcatsystems.co.uk (L<http://www.shadowcatsystems.co
 
 =item Norbert Buchmuller C<< <norbi@nix.hu> >>
 
+=item Dave Houston C<< <dhouston@cpan.org> >>
+
 =back
 
 =head1 LICENSE

diff --git a/lib/Devel/REPL/Meta/Plugin.pm b/lib/Devel/REPL/Meta/Plugin.pm
index c9cca5f..cd544c7 100644 (file)
--- a/lib/Devel/REPL/Meta/Plugin.pm
+++ b/lib/Devel/REPL/Meta/Plugin.pm
@@ -6,6 +6,7 @@ extends 'Moose::Meta::Role';
 
 before 'apply' => sub {
   my ($self, $other) = @_;
+  return unless $other->isa('Devel::REPL');
   if (my $pre = $self->get_method('BEFORE_PLUGIN')) {
     $pre->body->($other, $self);
   }
@@ -13,6 +14,7 @@ before 'apply' => sub {
 
 after 'apply' => sub {
   my ($self, $other) = @_;
+  return unless $other->isa('Devel::REPL');
   if (my $pre = $self->get_method('AFTER_PLUGIN')) {
     $pre->body->($other, $self);
   }