diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-06-08 18:50:14 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-06-08 18:50:14 +0000 |
commit | ff4b4beae9339b8b77299793e8f70d3bc2e6d56a (patch) | |
tree | f1bdc7da1843fb5431d27dfe0f6f082d8505e5a6 /URPM/Query.pm | |
parent | 57f864eebb38e7e4f2ab3b26413a2ca4c2384553 (diff) | |
download | perl-URPM-ff4b4beae9339b8b77299793e8f70d3bc2e6d56a.tar perl-URPM-ff4b4beae9339b8b77299793e8f70d3bc2e6d56a.tar.gz perl-URPM-ff4b4beae9339b8b77299793e8f70d3bc2e6d56a.tar.bz2 perl-URPM-ff4b4beae9339b8b77299793e8f70d3bc2e6d56a.tar.xz perl-URPM-ff4b4beae9339b8b77299793e8f70d3bc2e6d56a.zip |
drop URPM::Query as:
1) it's unused by anything in the distro
2) it's broken since 2008-12-09 as list_rpm_tag() die
Diffstat (limited to 'URPM/Query.pm')
-rw-r--r-- | URPM/Query.pm | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/URPM/Query.pm b/URPM/Query.pm deleted file mode 100644 index 9f70cce..0000000 --- a/URPM/Query.pm +++ /dev/null @@ -1,47 +0,0 @@ -package URPM; - -use strict; -use warnings; - -# perl_checker: require URPM - -# Olivier Thauvin <thauvin@aerov.jussieu.fr> -# This package extend URPM functions to permit -# URPM low level query on rpm header -# $Id: Query.pm 270395 2010-07-30 00:55:59Z nanardon $ -# -# UNUSED BY ANYTHING IN THE DISTRO -# AND BROKEN SINCE 2008-12-09 as list_rpm_tag() die -# - -# tag2id -# INPUT array of rpm tag name -# Return an array of ID tag - -sub tag2id { - my @l = @_; - # unimplemented since 2008-12-09: - my %taglist = URPM::list_rpm_tag(); - map { $taglist{uc($_)} || undef } @l; -} - -sub query_pkg { - my (undef, $pkg, $query) = @_; - my @tags = map { - [ $pkg->get_tag(tag2id($_)) ]; - } $query =~ m/\%\{([^{}]*)\}*/g; - - $query =~ s/\%\{[^{}]*\}/%s/g; - $query =~ s/\\n/\n/g; - $query =~ s/\\t/\t/g; - my ($max, @res) = 0; - - foreach (@tags) { $max < $#{$_} and $max = $#{$_} } - - foreach my $i (0 .. $max) { - push @res, sprintf($query, map { ${$_}[ $#{$_} < $i ? $#{$_} : $i] } @tags); - } - @res; -} - -1; |