for my $ver (@versions) {
push @{$entry{formats}}, {format => $ver->{format}, file => $ver->{file}};
for my $key (keys %$ver) {
- $entry{$key} = $ver->{$key} if $ver->{$key} ne '?';
+ $entry{$key} = $ver->{$key} if $ver->{$key} && $ver->{$key} ne '?';
}
}
delete $entry{$_} for qw/format file/;