make ->filename work (again) on header

1 files changed, 6 insertions, 0 deletions

diff --git a/URPM.xs b/URPM.xs
index edbb151..8309408 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2015,6 +2015,12 @@ Pkg_filename(pkg)
 	memcpy(eon, savbuf, 4);
     }
   } else if (pkg->h) {
+    char *name = get_name(pkg->h, RPMTAG_NAME);
+    char *version = get_name(pkg->h, RPMTAG_VERSION);
+    char *release = get_name(pkg->h, RPMTAG_RELEASE);
+    char *arch = headerIsEntry(pkg->h, RPMTAG_SOURCERPM) ? get_name(pkg->h, RPMTAG_ARCH) : "src";
+
+    XPUSHs(sv_2mortal(newSVpvf("%s-%s-%s.%s.rpm", name, version, release, arch)));
   }
 
 # deprecated