- $packages_small{$data{'package'}} .= "$suite $data{'architecture'} ".
- "$data{'section'} $data{'priority'} $data{'version'} $sdescr\000";
+ 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}{$archive}{$section}++;
+ $subsections{$suite}{$archive}{$subsection}++;
+ $priorities{$suite}{$archive}{$data{priority}}++;
+ $packages_small{$data{'package'}} .= "$archive $suite $data{'architecture'} ".
+ "$section $subsection $data{'priority'} $data{'version'} $sdescr\000";