We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f00fc15 commit a047d09Copy full SHA for a047d09
lib/MetaCPAN/Script/CPANTesters.pm
@@ -119,8 +119,12 @@ sub index_reports {
119
$sth->execute;
120
my @bulk;
121
while ( my $row_from_db = $sth->fetchrow_hashref ) {
122
- my $release
123
- = join( '-', $row_from_db->{dist}, $row_from_db->{version} );
+
+ # The testers db seems to return q{} where we would expect a version of
124
+ # 0.
125
126
+ my $version = $row_from_db->{version} || 0;
127
+ my $release = join( '-', $row_from_db->{dist}, $version );
128
my $release_doc = $releases{$release};
129
130
# there's a cpantesters dist we haven't indexed
0 commit comments