[debsums] 145/184: Leave in support for PackageSpec, for Ubuntu’s dpkg

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to branch master
in repository debsums.

commit 37799f76a641940fca64471bd9099ed0ec221df5
Author: Anders Kaseorg <andersk at mit.edu>
Date:   Sat Feb 11 10:06:13 2012 -0800

    Leave in support for PackageSpec, for Ubuntu’s dpkg
    
    Signed-off-by: Anders Kaseorg <andersk at mit.edu>
---
 debsums | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/debsums b/debsums
index 73b9a79..f417da1 100755
--- a/debsums
+++ b/debsums
@@ -240,8 +240,9 @@ my %installed;
 my %replaced;
 {
     for my $fields (parse_dpkg(sub {'dpkg-query', "--admindir=$DPKG", @_, '--show'},
-			       [qw(Package binary:Package Version Status Conffiles Replaces)])) {
+			       [qw(Package PackageSpec binary:Package Version Status Conffiles Replaces)])) {
 	my %field = %$fields;
+	$field{"binary:Package"} = $field{PackageSpec} if $field{"binary:Package"} eq '';
 	$field{"binary:Package"} = $field{Package} if $field{"binary:Package"} eq '';
 	next unless $field{"binary:Package"} ne ''
 		and $field{Version} ne ''
@@ -575,13 +576,14 @@ for (@ARGV)
 
 	my $deb = $_;
 	my ($fields) = parse_dpkg(sub {'dpkg-deb', @_, '--show', $deb},
-				  [qw(Package binary:Package Version Conffiles)])
+				  [qw(Package PackageSpec binary:Package Version Conffiles)])
 	  or do {
 	    warn "$self: $deb does not seem to be a valid debian archive\n";
 	    $status |= 1;
 	    next;
 	};
 	my %field = %$fields;
+	$field{"binary:Package"} = $field{PackageSpec} if $field{"binary:Package"} eq '';
 	$field{"binary:Package"} = $field{Package} if $field{"binary:Package"} eq '';
 
 	unless ($field{"binary:Package"} ne '' and $field{Version} ne '')

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/debsums.git