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

[jesse at bestpractical.com]

Author: jesse
Date: Fri May 20 22:17:22 2005
New Revision: 2901

Modified:
   Module-Refresh/   (props changed)
   Module-Refresh/Changes
   Module-Refresh/MANIFEST
   Module-Refresh/lib/Module/Refresh.pm
Log:
 r16961 at hualien:  jesse | 2005-05-20 22:16:00 -0400
 * This be 0.06


Modified: Module-Refresh/Changes
==============================================================================
--- Module-Refresh/Changes	(original)
+++ Module-Refresh/Changes	Fri May 20 22:17:22 2005
@@ -1,3 +1,10 @@
+0.06 Fri May 20 22:11:11 EDT 2005
+
+  * Trade overrefreshing for underrefreshing in some cases; test and document
+    (We were over-aggressively reloading modules
+     -- David Glasser
+
+
 0.05 Tue Nov 16 23:15:10 EST 2004
 
   * Explicitly, don't clobber the 'VERSION' symbol on setup.

Modified: Module-Refresh/MANIFEST
==============================================================================
--- Module-Refresh/MANIFEST	(original)
+++ Module-Refresh/MANIFEST	Fri May 20 22:17:22 2005
@@ -1,3 +1,5 @@
+SIGNATURE 
+Changes
 inc/Module/Install.pm
 inc/Module/Install/Base.pm
 inc/Module/Install/Can.pm
@@ -12,3 +14,4 @@
 META.yml
 t/0-smoke.t
 t/1api.t
+t/2lateuse.t

Modified: Module-Refresh/lib/Module/Refresh.pm
==============================================================================
--- Module-Refresh/lib/Module/Refresh.pm	(original)
+++ Module-Refresh/lib/Module/Refresh.pm	Fri May 20 22:17:22 2005
@@ -3,7 +3,7 @@
 use strict;
 use vars qw( $VERSION %CACHE );
 
-$VERSION = "0.05";
+$VERSION = "0.06";
 
 # Turn on the debugger's symbol source tracing
 BEGIN { $^P |= 0x10 };
@@ -150,6 +150,7 @@
     foreach my $sym (
         grep { index( $DB::sub{$_}, "$file:" ) == 0 } keys %DB::sub
     ) {
+        warn "Deleting $sym from $file" if ($sym =~ /freeze/);
         undef &$sym;
         delete $DB::sub{$sym};
     }