[Bast-commits] r4342 - trunk/Devel-REPL/lib/Devel/REPL/Plugin

[Sartak at dev.catalyst.perl.org]

Author: Sartak
Date: 2008-05-06 08:57:57 +0100 (Tue, 06 May 2008)
New Revision: 4342

Modified:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm
Log:
Update Packages so that it won't explode on comments (because the BEGIN block won't be run)


Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm	2008-05-06 07:49:51 UTC (rev 4341)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm	2008-05-06 07:57:57 UTC (rev 4342)
@@ -33,7 +33,7 @@
 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 {