[Module-build-checkins] Module-Build/lib/Module/Build ModuleInfo.pm,1.6,1.7

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5198/lib/Module/Build

Modified Files:
	ModuleInfo.pm 
Log Message:
Obscurify a VERSION-related line to hide it from VERSION-finding regexes

Index: ModuleInfo.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/ModuleInfo.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ModuleInfo.pm	22 Aug 2005 12:24:36 -0000	1.6
+++ ModuleInfo.pm	29 Aug 2005 11:38:16 -0000	1.7
@@ -209,12 +209,15 @@
 
   # version.pm will change the ->VERSION method, so we mitigate the
   # potential effects here.  Unfortunately local(*UNIVERSAL::VERSION)
-  # will crash perl < 5.8.1.
+  # will crash perl < 5.8.1.  We also use *{Foo::VERSION} instead of
+  # *Foo::VERSION so that old versions of CPAN.pm, etc. with a
+  # too-permissive regex don't think we're actually declaring a
+  # version.
 
   my $old_version = \&UNIVERSAL::VERSION;
   eval {require version};
   my $result = eval $eval;
-  *UNIVERSAL::VERSION = $old_version;
+  *{UNIVERSAL::VERSION} = $old_version;
   warn "Error evaling version line '$eval' in $self->{filename}: $@\n" if $@;
 
   # Unbless it if it's a version.pm object