Add the URPM::Package::payload_format method

2 files changed, 10 insertions, 0 deletions

diff --git a/URPM.pm b/URPM.pm
index 3502553..1f7b291 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -492,6 +492,8 @@ Return an array of human readable view of tag values. $tagid is the numerical va
 
 =item $package->packager()
 
+=item $package->payload_format()
+
 =item $package->provides()
 
 =item $package->provides_nosense()
diff --git a/URPM.xs b/URPM.xs
index 053183b..290b3a2 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1547,6 +1547,14 @@ Pkg_os(pkg)
   }
 
 void
+Pkg_payload_format(pkg)
+  URPM::Package pkg
+  PPCODE:
+  if (pkg->h) {
+    XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_PAYLOADFORMAT), 0)));
+  }
+
+void
 Pkg_fullname(pkg)
   URPM::Package pkg
   PREINIT: