Update Packages so that it won't explode on comments (because the BEGIN block won...

git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@4342 bd8105ee-0ff8-0310-8827-fb3f25b6796d

diff --git a/lib/Devel/REPL/Plugin/Packages.pm b/lib/Devel/REPL/Plugin/Packages.pm
index e0b797b..9fb14ba 100644 (file)
--- a/lib/Devel/REPL/Plugin/Packages.pm
+++ b/lib/Devel/REPL/Plugin/Packages.pm
@@ -33,7 +33,7 @@ around 'mangle_line' => sub {
 after 'execute' => sub {
   my ($self) = @_;
   # if we survived execution successfully, save the new package out the global
-  $self->current_package($PKG_SAVE);
+  $self->current_package($PKG_SAVE) if defined $PKG_SAVE;
 };
 
 around 'eval' => sub {