This should not cause any behavioral changes.
if ($srcs->{$p->{'name'}}) {
next if (vercmp($srcs->{$p->{'name'}}->{'version'}, $p->{'version'}) > 0);
}
if ($srcs->{$p->{'name'}}) {
next if (vercmp($srcs->{$p->{'name'}}->{'version'}, $p->{'version'}) > 0);
}
- my @a = split(/,? /, $p->{'binary'}) if $p->{'binary'};
- $p->{'binary'} = \@a;
+ if ($p->{'binary'}) {
+ $p->{'binary'} = [ split(/,? /, $p->{'binary'}) ];
+ }
$srcs->{$p->{'name'}} = $p;
}
close $S;
$srcs->{$p->{'name'}} = $p;
}
close $S;