- drop list_rpm_tag()

1 files changed, 2 insertions, 30 deletions

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)