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

jesse at pallas.eruditorum.org jesse at pallas.eruditorum.org
Tue Nov 16 23:15:24 EST 2004


Author: jesse
Date: Tue Nov 16 23:15:24 2004
New Revision: 1910

Modified:
   Module-Refresh/   (props changed)
   Module-Refresh/Changes
   Module-Refresh/lib/Module/Refresh.pm
Log:
 r9275 at tinbook:  jesse | 2004-11-17T04:16:42.568725Z
 do not clobber our own version. become 0,05


Modified: Module-Refresh/Changes
==============================================================================
--- Module-Refresh/Changes	(original)
+++ Module-Refresh/Changes	Tue Nov 16 23:15:24 2004
@@ -1,3 +1,7 @@
+0.05 Tue Nov 16 23:15:10 EST 2004
+
+  * Explicitly, don't clobber the 'VERSION' symbol on setup.
+
 0.04 Thu Nov 11 12:53:21 CST 2004
  
   * Fix tests to run correctly on Win32.

Modified: Module-Refresh/lib/Module/Refresh.pm
==============================================================================
--- Module-Refresh/lib/Module/Refresh.pm	(original)
+++ Module-Refresh/lib/Module/Refresh.pm	Tue Nov 16 23:15:24 2004
@@ -3,7 +3,7 @@
 use strict;
 use vars qw( $VERSION %CACHE );
 
-$VERSION = "0.04";
+$VERSION = "0.05";
 
 # Turn on the debugger's symbol source tracing
 BEGIN { $^P |= 0x10 };
@@ -140,10 +140,12 @@
 BEGIN {
     no strict 'refs';
     foreach my $sym (sort keys %{__PACKAGE__.'::'}) {
+        next if $sym eq 'VERSION'; # Skip the version sub, inherited from UNIVERSAL
         my $code = __PACKAGE__->can($sym) or next;
         delete ${__PACKAGE__.'::'}{$sym};
         *$sym = sub { goto &$code };
     }
+
 }
 
 1;


More information about the Rt-commit mailing list