add LexEnv plugin, rename $REPL to $_REPL to avoid clash with Lexical::Persistence

[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / Turtles.pm

diff --git a/lib/Devel/REPL/Plugin/Turtles.pm b/lib/Devel/REPL/Plugin/Turtles.pm
index 5faafc6..ca16591 100644 (file)
--- a/lib/Devel/REPL/Plugin/Turtles.pm
+++ b/lib/Devel/REPL/Plugin/Turtles.pm
@@ -6,7 +6,7 @@ around 'eval' => sub {
     my $next = shift;
     my ($self, $line) = @_;
     if ($line =~ /^#(.*)/) {
-        return $next->($self, ('$REPL->' . $1 . '; return();'));
+        return $next->($self, ('$_REPL->' . $1 . '; return();'));
     }
     else {
         return $next->($self, $line);