use strict;
-my $what = $1 ? "non-free" : "*";
+my $what = $ARGV[0] ? "non-free" : "*";
# max. distinct results for a given package postfix
my $MAX_PACKAGE_POSTFIXES = 100;
$package_names{$data{'package'}} = 1;
my $src = $data{'package'};
- my $srcversion = $data{'version'};
if ($data{'source'}) {
$src = $data{'source'};
- if ($src =~ /(\S+) \((\S+)\)/) {
- $src = $1;
- $srcversion = $2;
- }
+ $src =~ s/ .*//; # strip version info
}
my $descr = $data{'description'};
my $did = undef;
$packages_small{$data{'package'}} .= "$suite $data{'architecture'} ".
"$section $subsection $data{'priority'} $data{'version'} $sdescr\000";
$sources_packages{$src} .=
- "$data{'package'} $data{'architecture'} $data{'version'}\000";
+ "$suite $data{'package'} $data{'version'} $data{'architecture'}\000";
}
untie %packages_all_db;