[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: Important information regarding upcoming dpkg 1.16.2 upload


On Wed, 14 Mar 2012, Sven Joachim wrote:
> Here is a patch adding two missing newlines on output:


> Note that libc-bin:amd64 is actually purged, however it remains in the
> status file (note that the "Multi-Arch: foreign" field is missing):

Ok, fixed that as well by ignoring "not-installed" entries when
considering multiple instances. And I kept the advice to dpkg -P only
when it was in config-files state. Otherwise I leave it up to
the user's judgment.

Updated version attached.

Raphaël Hertzog ◈ Debian Developer

Pre-order a copy of the Debian Administrator's Handbook and help
liberate it: http://debian-handbook.info/liberation/

use Dpkg::Control;
use Dpkg::Index;

my $arch = `dpkg --print-architecture`;

my $status = Dpkg::Index->new(type => CTRL_FILE_STATUS);

sub find_foreign {
    my $a = shift;
    return ($a ne $arch and $a ne "all");
sub find_installed {
    return ($_[0] !~ / not-installed$/);

# Detect multiple instances which are not M-A: same
foreach my $foreign ($status->get("Architecture" => \&find_foreign)) {
    my $pkg = $foreign->{'Package'};
    my $pkgarch = $foreign->{'Package'} . ':' . $foreign->{'Architecture'};
    my $ma = $foreign->{'Multi-Arch'} || 'no';

    print "INFO: Foreign package detected: $pkgarch (Multi-Arch: $ma)\n";

    my @pkgs = $status->get("Package" => $pkg, "Status" => \&find_installed);
    if (scalar(@pkgs) > 1) {
	foreach my $item (@pkgs) {
	    $pkgarch = $item->{'Package'} . ':' . $item->{'Architecture'};
	    if ($item->{'Multi-Arch'} ne "same") {
		print "PROBLEM: one instance of $pkg is not Multi-Arch: same\n";
		if ($item->{'Status'} =~ / config-files$/) {
		    print "SOLUTION: dpkg -P $pkgarch\n";
		} else {
		    print "SOLUTION: update $pkgarch to a good version or get rid of it\n";

# Find broken packages
foreach my $pkg ($status->get()) {
    my $ma = $pkg->{'Multi-Arch'} || '';
    next if ($pkg->{'Status'} =~ m/ not-installed$/);

    my $pkgarch = $pkg->{'Package'};
    if ($ma eq "same") {
	$pkgarch = $pkg->{'Package'} . ':' . $pkg->{'Architecture'};

    if (! -e "/var/lib/dpkg/info/$pkgarch.list") {
	print "PROBLEM: $pkgarch has missing info files\n";
	print "SOLUTION: apt-get --reinstall install $pkgarch\n";

Reply to: