my $name;
my $full = shift;
- my $pkgs = get_all_source_info();
+ my $db = get_all_source_info();
local($/) = ""; # read in paragraph mode
while( <> ) {
$pkgs{$name}{'bin'} = $binaries;
$pkgs{$name}{'dep'} = $builddep;
$pkgs{$name}{'conf'} = $buildconf;
- my $pkg = $pkgs->{$name};
+ my $pkg = $db->{$name};
if (defined $pkg) {
my $change = 0;