[Bps-public-commit] r13690 - CPAN2RT/lib

[ruz at bestpractical.com]

Author: ruz
Date: Mon Jun 30 08:46:02 2008
New Revision: 13690

Modified:
   CPAN2RT/lib/CPAN2RT.pm

Log:
* use find-ls index to get more versions of distributions
  available from the mirror

Modified: CPAN2RT/lib/CPAN2RT.pm
==============================================================================
--- CPAN2RT/lib/CPAN2RT.pm	(original)
+++ CPAN2RT/lib/CPAN2RT.pm	Mon Jun 30 08:46:02 2008
@@ -288,6 +288,7 @@
     }
 
     my @files = uniq values %{ $self->module2file };
+    my $all_dists = $self->all_distributions;
 
     my %tmp;
     foreach my $file ( @files ) {
@@ -306,6 +307,7 @@
         if ( my $v = $info->version ) {
             push @{ $tmp{ $dist } }, $v;
         }
+        push @{ $tmp{ $dist } }, @{ $all_dists->{ $dist }{'versions'} || [] };
     }
 
     my @errors;
@@ -478,6 +480,7 @@
 sub add_versions {
     my $self = shift;
     my ($queue, @versions) = @_;
+    @versions = uniq @versions;
 
     my @errors;
     foreach my $name ( "Broken in", "Fixed in" ) {