From 22bbb98b0409c10187baf9adff48ed5a5f0b6eb8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Per=20=C3=98yvind=20Karlsen?= Date: Tue, 26 Apr 2011 19:19:15 +0000 Subject: don't fetching tags we don't need with return_list_tag --- URPM.xs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/URPM.xs b/URPM.xs index 2ca16e5..5978b07 100644 --- a/URPM.xs +++ b/URPM.xs @@ -779,19 +779,19 @@ return_list_tag(URPM__Package pkg, const char *tag_name) { switch (tag) { case RPMTAG_NAME: { - get_fullname_parts_info(pkg, &name, &epoch, &version, &release, &arch, &disttag, &distepoch, &eos); + get_fullname_parts_info(pkg, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL); if(!strlen(name)) croak("invalid fullname"); XPUSHs(sv_2mortal(newSVpv(name, 0))); } break; case RPMTAG_EPOCH: { - get_fullname_parts_info(pkg, &name, &epoch, &version, &release, &arch, &disttag, &distepoch, &eos); + get_fullname_parts_info(pkg, NULL, &epoch, NULL, NULL, NULL, NULL, NULL, NULL); XPUSHs(sv_2mortal(newSViv(epoch))); } case RPMTAG_VERSION: { - get_fullname_parts_info(pkg, &name, &epoch, &version, &release, &arch, &disttag, &distepoch, &eos); + get_fullname_parts_info(pkg, NULL, NULL, &version, NULL, NULL, NULL, NULL, NULL); if(!strlen(version)) croak("invalid fullname"); XPUSHs(sv_2mortal(newSVpv(version, 0))); @@ -799,7 +799,7 @@ return_list_tag(URPM__Package pkg, const char *tag_name) { break; case RPMTAG_RELEASE: { - get_fullname_parts_info(pkg, &name, &epoch, &version, &release, &arch, &disttag, &distepoch, &eos); + get_fullname_parts_info(pkg, NULL, NULL, NULL, &release, NULL, NULL, NULL, NULL); if(!strlen(release)) croak("invalid fullname"); XPUSHs(sv_2mortal(newSVpv(release, 0))); @@ -807,19 +807,19 @@ return_list_tag(URPM__Package pkg, const char *tag_name) { break; case RPMTAG_DISTTAG: { - get_fullname_parts_info(pkg, &name, &epoch, &version, &release, &arch, &disttag, &distepoch, &eos); + get_fullname_parts_info(pkg, NULL, NULL, NULL, NULL, NULL, &disttag, NULL, NULL); XPUSHs(sv_2mortal(newSVpv(disttag, 0))); } break; case RPMTAG_DISTEPOCH: { - get_fullname_parts_info(pkg, &name, &epoch, &version, &release, &arch, &disttag, &distepoch, &eos); + get_fullname_parts_info(pkg, NULL, NULL, NULL, NULL, NULL, NULL, &distepoch, NULL); XPUSHs(sv_2mortal(newSVpv(distepoch, 0))); } break; case RPMTAG_ARCH: { - get_fullname_parts_info(pkg, &name, &epoch, &version, &release, &arch, &disttag, &distepoch, &eos); + get_fullname_parts_info(pkg, NULL, NULL, NULL, NULL, &arch, NULL, NULL, NULL); XPUSHs(sv_2mortal(newSVpv(arch, 0))); } break; -- cgit v1.2.1