X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FPackages.pm;fp=lib%2FDevel%2FREPL%2FPlugin%2FPackages.pm;h=a2b3fcd250c71154d36c2d0547a59d584b0aa0ad;hp=14c0f60e000650a36084466348c86d242e62e0ec;hb=46407908bb18019c66a5035bb6fc22549f704967;hpb=a4dd2d8933ca2a9b4f627dfe6d03d679171372e4 diff --git a/lib/Devel/REPL/Plugin/Packages.pm b/lib/Devel/REPL/Plugin/Packages.pm index 14c0f60..a2b3fcd 100644 --- a/lib/Devel/REPL/Plugin/Packages.pm +++ b/lib/Devel/REPL/Plugin/Packages.pm @@ -26,7 +26,8 @@ around 'mangle_line' => sub { my $line = $self->$orig(@args); # add a BEGIN block to set the package around at the end of the sub # without mangling the return value (we save it off into a global) - $line .= '; BEGIN { $Devel::REPL::Plugin::Packages::PKG_SAVE = __PACKAGE__; }'; + $line .= ' +; BEGIN { $Devel::REPL::Plugin::Packages::PKG_SAVE = __PACKAGE__; }'; return $line; };