diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-08-18 15:03:54 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-08-18 15:03:54 +0000 |
| commit | 4e9007ae592899e6bfbece930ac4b4fb4ddef4bc (patch) | |
| tree | 038f873d063dbe850ac676028031cc0d98e9db7c /perl-install | |
| parent | fece31c395dfa0036487b6104004252edbf28eb2 (diff) | |
| download | drakx-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.pm | 10 |
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; |