[Module-build-checkins] Module-Build/lib/Module/Build ModuleInfo.pm,1.6,1.7
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-08-29 11:38:26
|
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 |