if ($data{'provides'}) {
foreach (split /\s*,\s*/, $data{'provides'}) {
$virtual_packages{$_}{$suite}{$data{'package'}}++;
+ $packages_small{$_} ||= {};
}
}
$package_names{$data{'package'}} = 1;
$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'}}
}
}
- open NAMES, '>>', "$DBDIR/package_names_$suite.txt.new"
+ open NAMES, '>', "$DBDIR/package_names_$suite.txt.new"
or die "Error creating package names list: $!";
foreach (sort keys %package_names_suite) {
print NAMES "$_\n";