- $packages_small{$data{'package'}} .= "$suite $data{'architecture'} ".
- "$section $subsection $data{'priority'} $data{'version'} $sdescr\000";
+ $data{'priority'} ||= '-';
+ $sections{$suite}{$section}++;
+ $subsections{$suite}{$subsection}++;
+ $priorities{$suite}{$data{priority}}++;
+ my $pkgitem = "$archive $suite $data{'architecture'} ".
+ "$section $subsection $data{'priority'} $data{'version'} $sdescr\0";
+ my $previtem = $packages_small{$data{'package'}}{$suite}{$data{'architecture'}}
+ || $pkgitem;
+ $packages_small{$data{'package'}}{$suite}{$data{'architecture'}} = $pkgitem
+ if version_cmp($data{'version'}, (split /\s/o, $previtem)[6]) >= 0;
+ $previtem = $packages_small{$data{'package'}}{$suite}{'any'}
+ || $pkgitem;
+ $packages_small{$data{'package'}}{$suite}{'any'} = $pkgitem
+ if version_cmp($data{'version'}, (split /\s/o, $previtem)[6]) >= 0;