sub get_packages {
$ENV{'COLUMNS'} = 1000;
$ENV{'LC_ALL'} = 'C';
- open(F, "dpkg -l|") or die ("Cannot run dpkg: $!\n");
+ open(F, "dpkg --print-architecture|") or die ("Cannot run dpkg --print-architecture: $!\n");
+ my $arch = <F>;
+ chomp($arch);
+ close(F);
+
+
+ open(F, "dpkg -l|") or die ("Cannot run dpkg -l: $!\n");
my @lines = <F>;
close(F);
chomp(@lines);
my %pkgs;
for my $line (@lines) {
my ($state, $pkg, $version, undef) = split(/ */, $line);
+ $pkg =~ s/\Q:$arch\E$//;
$pkgs{$state}{$pkg} = { 'installed' => $version }
}