debug( "package $data->{package}/$data->{version}/$data->{architecture} is subsequent merge", 3 ) if DEBUG;
my $is_newest;
- if ($is_newest =
- (version_cmp( $data->{version}, $self->{newest} ) > 0)) {
+ my $cmp = version_cmp( $data->{version}, $self->{newest} );
+ if ($is_newest = ($cmp > 0)) {
$self->{newest} = $data->{version};
foreach my $key (@TAKE_NEWEST) {
$self->{data}{$key} = $data->{$key};
}
+ } elsif (($cmp == 0) &&
+ $self->{data}{archive} ne 'us') {
+ #FIXME crude hack to prefer us archive over others
+ $self->{data}{archive} = $data->{archive};
}
debug( "is_newest= ".($is_newest||0), 3 ) if DEBUG;
if (!$self->{versions}{$data->{architecture}}