$data{'section'} = $section;
$data{'subsection'} = $subsection;
$data{'priority'} ||= '-';
- $sections{$suite}{$archive}{$section}++;
- $subsections{$suite}{$archive}{$subsection}++;
- $priorities{$suite}{$archive}{$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;
+ 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;
+ 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;
+ if version_cmp($data{'version'}, (split /\s/o, $previtem)[6]) > 0;
$sources_packages{$src} .=
"$archive $suite $data{'package'} $data{'version'} $data{'architecture'}\000";
$data{archive} = $archive;