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 <[email protected]> Date: Sat Feb 11 10:06:13 2012 -0800 Leave in support for PackageSpec, for Ubuntu’s dpkg Signed-off-by: Anders Kaseorg <[email protected]> --- 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 [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
