summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/remove-unused-hardware-packages
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-09-05 14:19:53 +0000
committerOlivier Blin <oblin@mandriva.com>2008-09-05 14:19:53 +0000
commitd10539bacfc2fba17b993c26227ac68d4146eabf (patch)
treec35ac597cc3f2e67edf3bc55d770a731f861ba80 /perl-install/standalone/remove-unused-hardware-packages
parent03f3b7743eb58b6415a6dc32ae37fe466f534216 (diff)
downloaddrakx-d10539bacfc2fba17b993c26227ac68d4146eabf.tar
drakx-d10539bacfc2fba17b993c26227ac68d4146eabf.tar.gz
drakx-d10539bacfc2fba17b993c26227ac68d4146eabf.tar.bz2
drakx-d10539bacfc2fba17b993c26227ac68d4146eabf.tar.xz
drakx-d10539bacfc2fba17b993c26227ac68d4146eabf.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/remove-unused-hardware-packages')
-rw-r--r--perl-install/standalone/remove-unused-hardware-packages4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/remove-unused-hardware-packages b/perl-install/standalone/remove-unused-hardware-packages
index c1fdf0747..517f47410 100644
--- a/perl-install/standalone/remove-unused-hardware-packages
+++ b/perl-install/standalone/remove-unused-hardware-packages
@@ -15,8 +15,8 @@ my $wait = $in->wait_message(N("Hardware packages removal"),
my $do_pkgs = do_pkgs->do_pkgs($in);
-my @all_hardware_packages = (pkgs::detect_hardware_packages($do_pkgs, 'match_all_hardware'));
-my @used_hardware_packages = (pkgs::detect_hardware_packages($do_pkgs));
+my @all_hardware_packages = pkgs::detect_hardware_packages($do_pkgs, 'match_all_hardware');
+my @used_hardware_packages = pkgs::detect_hardware_packages($do_pkgs);
my @unneeded_hardware_packages = difference2(\@all_hardware_packages, \@used_hardware_packages);
my @unused_hardware_packages = $do_pkgs->are_installed(@unneeded_hardware_packages);