X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FTurtles.pm;fp=lib%2FDevel%2FREPL%2FPlugin%2FTurtles.pm;h=ca16591af78e3d331a43fe4a172b20bfb1bdcaff;hp=5faafc61898b0b894a907af98fca0d5cab57b21e;hb=85cd27808a3e9294c1b5345fb5bbca046821933d;hpb=9d03fe0437b57edb434fa6a6f8bfee8723f58379 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);