aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS2
-rw-r--r--URPM.pm4
-rw-r--r--URPM.xs32
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)