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/pkgs.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'perl-install/pkgs.pm') 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; -- cgit v1.2.1