- 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 %pkgs;
for my $line (@lines) {
my ($state, $pkg, $version, undef) = split(/ */, $line);
my %pkgs;
for my $line (@lines) {
my ($state, $pkg, $version, undef) = split(/ */, $line);
'status' => 'OK' },
{ 'key' => 'obsolete-ignored',
'listpackages' => 1,
'long' => "%d whitelisted local or obsolete packages: %s",
'status' => 'OK' },
{ 'key' => 'obsolete-ignored',
'listpackages' => 1,
'long' => "%d whitelisted local or obsolete packages: %s",
my @shortout;
for my $form (@reportform) {
my $pkgs = $packages->{$form->{'key'}};
delete $packages->{$form->{'key'}};
my $num = scalar keys %$pkgs;
my @shortout;
for my $form (@reportform) {
my $pkgs = $packages->{$form->{'key'}};
delete $packages->{$form->{'key'}};
my $num = scalar keys %$pkgs;
next unless ($num > 0);
if ($form->{'listpackages'}) {
my $list = join(", ", keys %$pkgs);
next unless ($num > 0);
if ($form->{'listpackages'}) {
my $list = join(", ", keys %$pkgs);
my $shortout = $EXITCODE.": ".join(", ", @shortout);
my $longout = join("\n", @longout);
my $shortout = $EXITCODE.": ".join(", ", @shortout);
my $longout = join("\n", @longout);