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;