|
Line 0
Link Here
|
|
|
1 |
|
| 2 |
$FreeBSD$ |
| 3 |
|
| 4 |
--- lib/Devel/REPL/Meta/Plugin.pm.orig |
| 5 |
+++ lib/Devel/REPL/Meta/Plugin.pm |
| 6 |
@@ -6,6 +6,7 @@ |
| 7 |
|
| 8 |
before 'apply' => sub { |
| 9 |
my ($self, $other) = @_; |
| 10 |
+ return unless $other->isa('Devel::REPL'); |
| 11 |
if (my $pre = $self->get_method('BEFORE_PLUGIN')) { |
| 12 |
$pre->body->($other, $self); |
| 13 |
} |
| 14 |
@@ -13,6 +14,7 @@ |
| 15 |
|
| 16 |
after 'apply' => sub { |
| 17 |
my ($self, $other) = @_; |
| 18 |
+ return unless $other->isa('Devel::REPL'); |
| 19 |
if (my $pre = $self->get_method('AFTER_PLUGIN')) { |
| 20 |
$pre->body->($other, $self); |
| 21 |
} |