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