19 |
|
|
20 |
my @repos = ( |
my @repos = ( |
21 |
"$releasedir/$smerel/smeos/$arch/CentOS/RPMS", |
"$releasedir/$smerel/smeos/$arch/CentOS/RPMS", |
22 |
|
"$releasedir/$smerel/smeos/$arch/SME/RPMS", |
23 |
|
"$releasedir/$smerel/smeos/$arch/RPMS", |
24 |
|
"$releasedir/$smerel/smeos/$arch/SME", |
25 |
"$releasedir/$smerel/smeupdates/$arch/RPMS", |
"$releasedir/$smerel/smeupdates/$arch/RPMS", |
26 |
"$releasedir/$smerel/smeupdates-testing/$arch/RPMS", |
"$releasedir/$smerel/smeupdates-testing/$arch/RPMS", |
27 |
"$releasedir/$smerel/smeextras/$arch/RPMS", |
"$releasedir/$smerel/smeextras/$arch/RPMS", |
127 |
@{$repohash{$pkg}{$pos}} = grep { $_ gt $repohash{$pkg}{latest} } @{$repohash{$pkg}{$pos}}; |
@{$repohash{$pkg}{$pos}} = grep { $_ gt $repohash{$pkg}{latest} } @{$repohash{$pkg}{$pos}}; |
128 |
delete $repohash{$pkg}{$pos}; |
delete $repohash{$pkg}{$pos}; |
129 |
} |
} |
130 |
} else { |
} elsif ( ref($repohash{$pkg}{$pos}) eq 'ARRAY' ) { |
131 |
my ($latest, @rest) = sort { $b cmp $a } @{$repohash{$pkg}{$pos}}; |
my ($latest, @rest) = sort { $b cmp $a } @{$repohash{$pkg}{$pos}}; |
132 |
delete $repohash{$pkg}{$pos}; |
delete $repohash{$pkg}{$pos}; |
133 |
if ( $repohash{$pkg}{latest} && $repohash{$pkg}{latest} ge $latest ) { |
if ( $repohash{$pkg}{latest} && $repohash{$pkg}{latest} ge $latest ) { |