- drop list_rpm_tag()

3 files changed, 4 insertions, 34 deletions

diff --git a/NEWS b/NEWS
index 1c90295..aabd47b 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- drop list_rpm_tag()
+
 Version 3.20 - 14 October 2008, by Pascal "Pixel" Rigaux
 
 - $trans->run can now return both the translated errors, and some parsable
diff --git a/URPM.pm b/URPM.pm
index e86a155..5903760 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -303,10 +303,6 @@ parse_synthesis()).
 
 Force the re-reading of the RPM configuration files.
 
-=item URPM::list_rpm_tag()
-
-Returns a hash containing the key/id values of known rpm tags.
-
 =item URPM::ranges_overlap($range1, $range2 [, $nopromoteepoch])
 
 This utility function compares two version ranges, in order to calculate
diff --git a/URPM.xs b/URPM.xs
index c4341b2..b4858e5 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -3363,36 +3363,8 @@ Urpm_read_config_files()
 void
 Urpm_list_rpm_tag(urpm=Nullsv)
    SV *urpm
-   PREINIT:
-       int i = 0;
-       const struct headerSprintfExtension_s * ext = rpmHeaderFormats;
-   PPCODE:
-       read_config_files(0);
-      
-       for (i = 0; i < rpmTagTableSize; i++) {
-	XPUSHs(sv_2mortal(newSVpv(rpmTagTable[i].name + 7, 0)));
-	XPUSHs(sv_2mortal(newSViv(rpmTagTable[i].val)));
-       }
-
-       while (ext->name != NULL) {
-          if (ext->type == HEADER_EXT_MORE) {
-#if RPM_VERSION_CODE >= RPM_VERSION(5,0,0)
-		  ext = *ext->u.more;
-#else
-		  ext = ext->u.more;
-#endif
-		  continue;
-	  }
-	  for (i = 0; i < rpmTagTableSize; i++) {
-		  if (!strcmp(rpmTagTable[i].name, ext->name))
-			  break;
-	  }
-	  if (i >= rpmTagTableSize && ext->type == HEADER_EXT_TAG) {
-	  	XPUSHs(sv_2mortal(newSVpv(ext->name + 7, 0)));
-	  	XPUSHs(sv_newmortal());
-	  }
-  	  ext++;
-       }
+   CODE:
+   croak("list_rpm_tag() has been removed from perl-URPM. please report if you need it back");
 
 int
 rpmvercmp(one, two)