[Module-build-checkins] CPANPLUS-Dist-Build/lib/CPANPLUS/Dist Build.pm,1.7,1.8
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-09-23 22:16:36
|
Update of /cvsroot/module-build/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11168/lib/CPANPLUS/Dist Modified Files: Build.pm Log Message: Add the real function where I was using a stub Index: Build.pm =================================================================== RCS file: /cvsroot/module-build/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist/Build.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- Build.pm 12 Sep 2005 19:58:07 -0000 1.7 +++ Build.pm 23 Sep 2005 22:16:25 -0000 1.8 @@ -277,6 +277,7 @@ $dist->status->_mb_object( $mb ); ### resolve prereqs ### + # XXX according to Jos, this should actually be in _resolve_prereqs(), not here. my $prereqs = $dist->_find_prereqs( verbose => $verbose ); my %prereqs_out; @@ -290,9 +291,9 @@ my $status = Module::Build->check_installed_status($mod, $prereqs->{$mod}); next if $status->{ok}; - # XXX get the latest version from the CPAN index and check it + # Get the latest version from the CPAN index and check it no strict 'refs'; - local ${$mod . '::VERSION'} = get_indexed_version($mod); # XXX this function doesn't exist + local ${$mod . '::VERSION'} = $cb->module_tree($mod)->version; $status = Module::Build->check_installed_status($mod, $prereqs->{$mod}); if ($status->{ok}) { $prereqs_out{$mod} = $status->{have}; |