diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-08-18 14:59:01 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-08-18 14:59:01 +0000 |
| commit | 07a5a611fd36f268d32eafe57c3b586e85e51181 (patch) | |
| tree | 0b50f014854b9dbba1bfec50b5402e83a548a976 /perl-install/pkgs.pm | |
| parent | 9825534728892ab93876532d4d65a26254ea19f1 (diff) | |
| download | drakx-backup-do-not-use-07a5a611fd36f268d32eafe57c3b586e85e51181.tar drakx-backup-do-not-use-07a5a611fd36f268d32eafe57c3b586e85e51181.tar.gz drakx-backup-do-not-use-07a5a611fd36f268d32eafe57c3b586e85e51181.tar.bz2 drakx-backup-do-not-use-07a5a611fd36f268d32eafe57c3b586e85e51181.tar.xz drakx-backup-do-not-use-07a5a611fd36f268d32eafe57c3b586e85e51181.zip | |
move rpmsrate functions in pkgs module
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 405bfe75b..be139d6c5 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -140,4 +140,15 @@ sub read_rpmsrate { return ($rates, $flags) if $::isStandalone; } + +sub simple_read_rpmsrate() { + require pkgs; + my ($rates, $flags) = read_rpmsrate({}, { }, '/usr/share/meta-task/rpmsrate-raw', 0); + grep { member('TRUE', @{$flags->{$_}}) && $rates->{$_} >= 5 } keys %$flags; +} + +sub list_hardware_packages() { + grep { !/openoffice/ } simple_read_rpmsrate(); +} + 1; |