2 files changed, 19 insertions, 0 deletions
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