From 0773ca097f1d8674f72c0822fea209e692510ddf Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 5 Sep 2008 14:24:44 +0000 Subject: extract detect_unused_hardware_packages function --- perl-install/standalone/remove-unused-hardware-packages | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'perl-install/standalone/remove-unused-hardware-packages') 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 -- cgit v1.2.1