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 <ande...@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 <ande...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to