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

3 files changed, 1 insertions, 48 deletions

diff --git a/MANIFEST b/MANIFEST
index 9e8feb2..848760c 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -5,7 +5,6 @@ typemap
 URPM.xs
 URPM.pm
 URPM/Build.pm
-URPM/Query.pm
 URPM/Resolve.pm
 URPM/Signature.pm
 t/00prepare.t
diff --git a/NEWS b/NEWS
index 38fe408..cb07860 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,4 @@
+- drop URPM::Query (broken for years)
 - drop support for rpm-4.8.x
 - kill functions unimplemented for years
 
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;