On Wed, 8 Feb 2012, Ryan Niebur wrote:
> Yes, debsums already supported multiarch, until the PackageSpec field
> was apparently renamed to binary:Package. I will test debsums using the
> new field name and upload tomorrow if it works as expected.
Is Ubuntu going to follow this change quickly, or is it worth leaving in
support for both PackageSpec and binary:Package for now?
Anders
-- 8< --
From: Anders Kaseorg <ande...@mit.edu>
Subject: [PATCH] Leave in support for PackageSpec, for Ubuntu’s dpkg
Signed-off-by: Anders Kaseorg <ande...@mit.edu>
---
debsums | 6 ++++--
1 files 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 '')
--
1.7.9
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
