From 5ac4d0ce7033d7e72fe745a4cb37783605a2201e Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Mon, 2 Aug 2004 08:42:52 +0000 Subject: - remove test that can't works --- URPM.xs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'URPM.xs') diff --git a/URPM.xs b/URPM.xs index df4bcda..a358e26 100644 --- a/URPM.xs +++ b/URPM.xs @@ -697,7 +697,7 @@ return_list_tag_modifier(Header header, int_32 tag_name) { void return_list_tag(URPM__Package pkg, int_32 tag_name) { dSP; - if (pkg->h) { + if (pkg->h != NULL) { void *list = NULL; int_32 count, type; headerGetEntry(pkg->h, tag_name, &type, (void **) &list, &count); @@ -757,19 +757,19 @@ return_list_tag(URPM__Package pkg, int_32 tag_name) { case RPMTAG_NAME: { get_fullname_parts(pkg, &name, &version, &release, &arch, &eos); - XPUSHs(sv_2mortal(newSVpv(name, version-name))); + XPUSHs(sv_2mortal(newSVpv(name, version-name - 1))); } break; case RPMTAG_VERSION: { get_fullname_parts(pkg, &name, &version, &release, &arch, &eos); - XPUSHs(sv_2mortal(newSVpv(version, release-version))); + XPUSHs(sv_2mortal(newSVpv(version, release-version - 1))); } break; case RPMTAG_RELEASE: { get_fullname_parts(pkg, &name, &version, &release, &arch, &eos); - XPUSHs(sv_2mortal(newSVpv(release, arch-release))); + XPUSHs(sv_2mortal(newSVpv(release, arch-release - 1))); } break; case RPMTAG_ARCH: -- cgit v1.2.1