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