X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=bin%2Fparse-packages;h=aad66889f510bb97bb5825ad80b9a5bd697969a5;hp=b5c2cebac67eddae65c50ceafc1ca4a3d743736c;hb=13a8ba9e1656ff1af0bcde63100907a5acb13315;hpb=c049f68b67a8ffdce5280f39f96b38abf005641d

diff --git a/bin/parse-packages b/bin/parse-packages
index b5c2ceb..aad6688 100755
--- a/bin/parse-packages
+++ b/bin/parse-packages
@@ -21,7 +21,7 @@
 
 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;
 
@@ -68,13 +68,9 @@ for my $suite (@suites) {
 
 		$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;
@@ -99,7 +95,7 @@ for my $suite (@suites) {
 		$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;