Add installtid method

2 files changed, 14 insertions, 0 deletions

diff --git a/URPM.pm b/URPM.pm
index 00f632f..88fb948 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -520,6 +520,8 @@ Return an array of human readable view of tag values. $tagid is the numerical va
 
 =item $package->id()
 
+=item $package->installtid()
+
 =item $package->is_arch_compat()
 
 =item $package->license()
diff --git a/URPM.xs b/URPM.xs
index 48181a8..7da9eac 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1518,6 +1518,18 @@ Pkg_buildtime(pkg)
   OUTPUT:
   RETVAL
 
+int
+Pkg_installtid(pkg)
+  URPM::Package pkg
+  CODE:
+  if (pkg->h) {
+    RETVAL = get_int(pkg->h, RPMTAG_INSTALLTID);
+  } else {
+    RETVAL = 0;
+  }
+  OUTPUT:
+  RETVAL
+
 void
 Pkg_url(pkg)
   URPM::Package pkg