Skip to content

Commit a047d09

Browse files
committed
CPANTesters db returns an empty string rather than 0 for versions.
1 parent f00fc15 commit a047d09

File tree

1 file changed

+6
-2
lines changed

1 file changed

+6
-2
lines changed

lib/MetaCPAN/Script/CPANTesters.pm

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -119,8 +119,12 @@ sub index_reports {
119119
$sth->execute;
120120
my @bulk;
121121
while ( my $row_from_db = $sth->fetchrow_hashref ) {
122-
my $release
123-
= join( '-', $row_from_db->{dist}, $row_from_db->{version} );
122+
123+
# 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 );
124128
my $release_doc = $releases{$release};
125129

126130
# there's a cpantesters dist we haven't indexed

0 commit comments

Comments
 (0)