From 02c3aea379f913d279ede829bfe5cdb23aa5605b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 22 May 2013 07:38:17 +0000
Subject: simplify, also slightly faster

---
 rename-rpm-group | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'rename-rpm-group')

diff --git a/rename-rpm-group b/rename-rpm-group
index b5ad8df..363bf88 100755
--- a/rename-rpm-group
+++ b/rename-rpm-group
@@ -33,8 +33,7 @@ sub get_packages_by_group {
     }
 
     my %res;
-    $urpm->traverse(sub { 
-            if ($_[0]->group eq $groupname) {
+    $urpm->traverse_tag('group', [ $groupname ], sub { 
                 my $name;
                 if ($_[0]->sourcerpm) {
                     $name = $_[0]->sourcerpm;
@@ -43,7 +42,6 @@ sub get_packages_by_group {
                     $name = $_[0]->name;
                 }
                 $res{$name} = 1;
-            }
         });
 
     keys %res;
-- 
cgit v1.2.1