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;
}
if ($options{list_min_age} < 0) {
- $q .= ' AND age(state_change::timestamp) < ? days ';
+ $q .= ' AND age(state_change::timestamp) < ? ';
push @args, -$options{list_min_age} . " days";
}