show_package.pl Basic stuff works with still some rough edges and dirty

[deb/packages.git] / bin / parse-packages

diff --git a/bin/parse-packages b/bin/parse-packages
index 7a67e691a9dd0a9e95abc61dcbd8a7ed2a034e0e..04bee3d9b75381ce410359568e9b25466e92dbfa 100755 (executable)
--- a/bin/parse-packages
+++ b/bin/parse-packages
@@ -66,11 +66,14 @@ for my $archive (@archives) {
 
                $package_names{$data{'package'}} = 1;
                my $src = $data{'package'};
+               my $src_version = '';
                if ($data{'source'}) {
                        $src = $data{'source'};
-                       $src =~ s/ .*//; # strip version info
+                       $src_version = $1
+                           if $src =~ s/\s+\(\s*=\s*(.*)\).*//; # strip version info
                }
                $data{'source'} = $src;
+               $data{'source-version'} = $src_version;
                my $descr = $data{'description'};
                my $did = undef;
                if (exists($descriptions{$descr})) {