diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | URPM.pm | 4 | ||||
| -rw-r--r-- | URPM.xs | 32 |
3 files changed, 4 insertions, 34 deletions
@@ -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 @@ -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 @@ -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) |