diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-11-19 18:26:47 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-11-19 18:26:47 +0000 |
commit | 350c7f12726a05e54a04119c1540e2dbe07b8760 (patch) | |
tree | 816d8e03e538d05ff297f33881db09b41dddcf1c | |
parent | b9e25134ec05d8532cd567e34e15f8f53cdbdef3 (diff) | |
download | perl-URPM-350c7f12726a05e54a04119c1540e2dbe07b8760.tar perl-URPM-350c7f12726a05e54a04119c1540e2dbe07b8760.tar.gz perl-URPM-350c7f12726a05e54a04119c1540e2dbe07b8760.tar.bz2 perl-URPM-350c7f12726a05e54a04119c1540e2dbe07b8760.tar.xz perl-URPM-350c7f12726a05e54a04119c1540e2dbe07b8760.zip |
drop header_filename (long obsolete, no more use)
-rw-r--r-- | NEWS | 2 | ||||
-rw-r--r-- | URPM.xs | 21 |
2 files changed, 2 insertions, 21 deletions
@@ -1,3 +1,5 @@ +- drop header_filename (long obsolete, no more use) + Version 4.16 - 16 November 2012 - prevent urpmi from looping forever when some packages are broken @@ -1814,27 +1814,6 @@ Pkg_filename(pkg) mXPUSHs(newSVpvf("%s.%s.rpm", nvr, arch)); } -# deprecated -void -Pkg_header_filename(pkg) - URPM::Package pkg - PPCODE: - if (pkg->info) { - char *eon; - - if ((eon = strchr(pkg->info, '@')) != NULL) { - mXPUSHs(newSVpv(pkg->info, eon-pkg->info)); - } - } else if (pkg->h) { - char buff[1024]; - char *p = buff; - char *nvr = headerGetAsString(pkg->h, RPMTAG_NVR); - char *arch = get_arch(pkg->h); - - p += snprintf(buff, sizeof(buff), "%s.%s", nvr, arch); - mXPUSHs(newSVpv(buff, p-buff)); - } - void Pkg_id(pkg) URPM::Package pkg |