diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2004-04-22 05:43:07 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2004-04-22 05:43:07 +0000 |
| commit | 85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac (patch) | |
| tree | 45f549990f98fdca067cc303ce2aadfa7d30fb08 /URPM | |
| parent | e8f3cac95471ca34f77307ec26564bcea181c295 (diff) | |
| download | perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar.gz perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar.bz2 perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar.xz perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.zip | |
- remove unusefull function
- start to add parsing test
Diffstat (limited to 'URPM')
| -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 { |