summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 6072904e5..3d5ccecef 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -141,13 +141,15 @@ sub read_rpmsrate {
}
-sub simple_read_rpmsrate() {
- my ($rates, $flags) = read_rpmsrate({}, {}, $::prefix . '/usr/share/meta-task/rpmsrate-raw', 0);
+sub simple_read_rpmsrate {
+ my ($o_match_all_hardware) = @_;
+ my ($rates, $flags) = read_rpmsrate({}, {}, $::prefix . '/usr/share/meta-task/rpmsrate-raw', $o_match_all_hardware);
grep { member('TRUE', @{$flags->{$_}}) && $rates->{$_} >= 5 } keys %$flags;
}
-sub list_hardware_packages() {
- grep { !/openoffice/ } simple_read_rpmsrate();
+sub list_hardware_packages {
+ my ($o_match_all_hardware) = @_;
+ grep { !/openoffice/ } simple_read_rpmsrate($o_match_all_hardware);
}
1;