summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm8
-rw-r--r--perl-install/standalone/remove-unused-hardware-packages9
2 files changed, 9 insertions, 8 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 40d1cc976..e7809a048 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -203,4 +203,12 @@ sub detect_hardware_packages {
);
}
+sub detect_unused_hardware_packages {
+ my ($do_pkgs) = @_;
+ my @all_hardware_packages = detect_hardware_packages($do_pkgs, 'match_all_hardware');
+ my @used_hardware_packages = detect_hardware_packages($do_pkgs);
+ my @unneeded_hardware_packages = difference2(\@all_hardware_packages, \@used_hardware_packages);
+ $do_pkgs->are_installed(@unneeded_hardware_packages);
+}
+
1;
diff --git a/perl-install/standalone/remove-unused-hardware-packages b/perl-install/standalone/remove-unused-hardware-packages
index 517f47410..eb7a126dc 100644
--- a/perl-install/standalone/remove-unused-hardware-packages
+++ b/perl-install/standalone/remove-unused-hardware-packages
@@ -9,17 +9,10 @@ use run_program;
use standalone;
my $in = interactive->vnew;
-
my $wait = $in->wait_message(N("Hardware packages removal"),
N("Finding unused hardware packages..."));
-
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 @unneeded_hardware_packages = difference2(\@all_hardware_packages, \@used_hardware_packages);
-my @unused_hardware_packages = $do_pkgs->are_installed(@unneeded_hardware_packages);
-
+my @unused_hardware_packages = pkgs::detect_unused_hardware_packages($do_pkgs);
undef $wait;
#- we should have some gurpme