diff options
Diffstat (limited to 'URPM/Query.pm')
| -rw-r--r-- | URPM/Query.pm | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/URPM/Query.pm b/URPM/Query.pm index 01548e8..c249470 100644 --- a/URPM/Query.pm +++ b/URPM/Query.pm @@ -12,24 +12,9 @@ use strict; # Return an array of ID tag sub tag2id { + my @l = @_; my %taglist = URPM::list_rpm_tag; - map { $taglist{uc("RPMTAG_$_")} || undef } @_; -} - -# id2tag -# INPUT array of rpm id tag -# Return an array of tag name - -sub id2tag { - my @id = @_; - my %taglist = URPM::list_rpm_tag; - my @ret; - foreach my $thisid (@id) { - my $res = grep { $taglist{$_} == $thisid } keys (%taglist); - $res =~ s/^RPMTAG_//; - push (@ret, $res ? $res : undef); - } - @ret + map { $taglist{uc("RPMTAG_$_")} || undef } @l; } sub query_pkg { |