X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo.pm;h=a1fe7b6ce5b1425cb6eb01c835be9b258c51bcd7;hb=8059d98e61fddbdcfed701f6f63e4f309d6826f8;hp=d5a7b79dd375add110e358c90717d0217ad8268c;hpb=5af07d69e53872ebe1bdea02e0e880141eacd862;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index d5a7b79..a1fe7b6 100644
--- a/lib/CPANPLUS/Dist/Gentoo.pm
+++ b/lib/CPANPLUS/Dist/Gentoo.pm
@@ -218,14 +218,7 @@ my $filter_prereqs = sub {
   next unless $obj; # Not in the module tree (e.g. Config)
   next if $obj->package_is_perl_core;
 
-  my $version;
-  if ($prereqs->{$prereq}) {
-   if ($obj->installed_version && $obj->installed_version < $obj->version) {
-    $version = $obj->installed_version;
-   } else {
-    $version = $obj->package_version;
-   }
-  }
+  my $version = $prereqs->{$prereq} || undef;
 
   push @requires, [ $obj->package_name, $version ];
  }
@@ -359,7 +352,10 @@ sub prepare {
  return $FAIL->() unless $stat->prepared;
 
  my $desc = $mod->description;
- ($desc = $name) =~ s/-+/::/g unless $desc;
+ $desc    = $mod->comment                unless $desc;
+ $desc    = "$name Perl distribution (provides " . $mod->module . ')'
+                                         unless $desc;
+ $desc    = substr($desc, 0, 77) . '...' if length $desc > 80;
  $stat->desc($desc);
 
  $stat->uri('http://search.cpan.org/dist/' . $name);