+ my $section = 'main';
+ my $subsection = $data{section} || '-';
+ if ($data{section} && ($data{section} =~ m=/=o)) {
+ ($section, $subsection) = split m=/=o, $data{section}, 2;
+ ($subsection, $section) = split m=/=o, $data{section}, 2
+ if $section eq 'non-US';
+ }
+ $data{'section'} = $section;
+ $data{'subsection'} = $subsection;
+ $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;