diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-09-05 14:24:44 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-09-05 14:24:44 +0000 |
| commit | 0773ca097f1d8674f72c0822fea209e692510ddf (patch) | |
| tree | 5cca4bc461233cfaf7e2ec3e83d56a5f318c7719 | |
| parent | f98cf01c4e171dfe43478594648dc4e6ac9a2c5a (diff) | |
| download | drakx-0773ca097f1d8674f72c0822fea209e692510ddf.tar drakx-0773ca097f1d8674f72c0822fea209e692510ddf.tar.gz drakx-0773ca097f1d8674f72c0822fea209e692510ddf.tar.bz2 drakx-0773ca097f1d8674f72c0822fea209e692510ddf.tar.xz drakx-0773ca097f1d8674f72c0822fea209e692510ddf.zip | |
extract detect_unused_hardware_packages function
| -rw-r--r-- | perl-install/pkgs.pm | 8 | ||||
| -rw-r--r-- | perl-install/standalone/remove-unused-hardware-packages | 9 |
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 |