[Module-build-checkins] CPANPLUS-Dist-Build/lib/CPANPLUS/Dist Build.pm,1.7,1.8

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

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};