[Rt-commit] r3974 - in Module-Refresh: . lib/Module

[jesse at bestpractical.com]

Author: jesse
Date: Mon Oct 17 00:18:41 2005
New Revision: 3974

Modified:
   Module-Refresh/   (props changed)
   Module-Refresh/Changes
   Module-Refresh/lib/Module/Refresh.pm
Log:
 r17428 at hualien:  jesse | 2005-10-17 00:16:34 -0400
 * blow-away-current-sub bug caught by ivan kohler


Modified: Module-Refresh/Changes
==============================================================================
--- Module-Refresh/Changes	(original)
+++ Module-Refresh/Changes	Mon Oct 17 00:18:41 2005
@@ -1,3 +1,15 @@
+0.08
+ * From Ivan Kohler.  (rt.cpan.org #14879)
+  Without this patch, I was getting a fatal error:
+   Can't undef active subroutine at /usr/share/perl5/Module/Refresh.pm line 154.
+
+   This patch changes this to a warning and adds the name of the subroutine that
+   triggered it.  I now get the non-fatal warning:
+
+     HTML::Mason::handler: Can't undef active subroutine at
+     /usr/share/perl5/Module/Refresh.pm line 154.
+
+
 0.07 Sun Aug 21 13:25:20 EDT 2005
 
   * Put in a work-around for a perl bug before 5.8.7.

Modified: Module-Refresh/lib/Module/Refresh.pm
==============================================================================
--- Module-Refresh/lib/Module/Refresh.pm	(original)
+++ Module-Refresh/lib/Module/Refresh.pm	Mon Oct 17 00:18:41 2005
@@ -3,7 +3,7 @@
 use strict;
 use vars qw( $VERSION %CACHE );
 
-$VERSION = "0.07";
+$VERSION = "0.08";
 
 BEGIN { 
     # Turn on the debugger's symbol source tracing
@@ -158,7 +158,8 @@
         grep { index( $DB::sub{$_}, "$file:" ) == 0 } keys %DB::sub
     ) {
         warn "Deleting $sym from $file" if ($sym =~ /freeze/);
-        undef &$sym;
+        eval { undef &$sym };
+        warn "$sym: $@" if $@;
         delete $DB::sub{$sym};
     }