From 20b1ebb07255184eb0166c8a0129f1d2b147c4bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Per=20=C3=98yvind=20Karlsen?= <peroyvind@mandriva.org>
Date: Sun, 26 Jul 2009 16:06:19 +0000
Subject: add support for %disttag & %distepoch

---
 NEWS    |  1 +
 URPM.xs | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/NEWS b/NEWS
index 0ce2076..1f30d13 100644
--- a/NEWS
+++ b/NEWS
@@ -1,4 +1,5 @@
 Version 3.31 - ? ? 2009, by ? ?
+- add support for %disttag & %distepoch (by Per Øyvind Karlsen)
 - clean up and bring back rpm5.org support (by Per Øyvind Karlsen)
 
 Version 3.30 - 11 May 2009, by Christophe Fergeau
diff --git a/URPM.xs b/URPM.xs
index b1e378a..d23925d 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2243,6 +2243,24 @@ Pkg_dirnames(pkg)
   xpush_simple_list_str(pkg->h, RPMTAG_DIRNAMES);
   SPAGAIN;
 
+void Pkg_distepoch(pkg)
+  URPM::Package pkg
+  PPCODE:
+#ifdef RPMTAG_DISTEPOCH
+  if (pkg->h) {
+    XPUSHs(sv_2mortal(newSVpv_utf8(get_name(pkg->h, RPMTAG_DISTEPOCH), 0)));
+  }
+#else
+  croak("distepoch isn't available with this rpm version");
+#endif
+
+void Pkg_disttag(pkg)
+  URPM::Package pkg
+  PPCODE:
+  if (pkg->h) {
+    XPUSHs(sv_2mortal(newSVpv_utf8(get_name(pkg->h, RPMTAG_DISTTAG), 0)));
+  }
+
 void
 Pkg_filelinktos(pkg)
   URPM::Package pkg
-- 
cgit v1.2.1