summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-08-18 15:03:54 +0000
committerOlivier Blin <oblin@mandriva.com>2008-08-18 15:03:54 +0000
commit4e9007ae592899e6bfbece930ac4b4fb4ddef4bc (patch)
tree038f873d063dbe850ac676028031cc0d98e9db7c /perl-install
parentfece31c395dfa0036487b6104004252edbf28eb2 (diff)
downloaddrakx-4e9007ae592899e6bfbece930ac4b4fb4ddef4bc.tar
drakx-4e9007ae592899e6bfbece930ac4b4fb4ddef4bc.tar.gz
drakx-4e9007ae592899e6bfbece930ac4b4fb4ddef4bc.tar.bz2
drakx-4e9007ae592899e6bfbece930ac4b4fb4ddef4bc.tar.xz
drakx-4e9007ae592899e6bfbece930ac4b4fb4ddef4bc.zip
pass optional o_match_all_hardware option
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;