From ff4b4beae9339b8b77299793e8f70d3bc2e6d56a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 8 Jun 2012 18:50:14 +0000
Subject: 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

---
 URPM/Query.pm | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 URPM/Query.pm

(limited to 'URPM')

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;
-- 
cgit v1.2.1