X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FTurtles.pm;h=ca16591af78e3d331a43fe4a172b20bfb1bdcaff;hb=6edfdc075bf84142924281bafdd9f75f08a9b93d;hp=5faafc61898b0b894a907af98fca0d5cab57b21e;hpb=48ddfeae8a9840b39113a97c4889bfe210509cdd;p=p5sagit%2FDevel-REPL.git diff --git a/lib/Devel/REPL/Plugin/Turtles.pm b/lib/Devel/REPL/Plugin/Turtles.pm index 5faafc6..ca16591 100644 --- 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);