From 862ad4c9de2f8a4514b27b1ae4a9c8ca83a4d14f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 22 Apr 2003 14:35:01 +0000
Subject: 0.82-3mdk

---
 URPM.xs        | 24 ++++++++++++++++++++++++
 perl-URPM.spec |  6 +++++-
 2 files changed, 29 insertions(+), 1 deletion(-)

diff --git a/URPM.xs b/URPM.xs
index 3e56ecc..f9fef55 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -953,6 +953,30 @@ Pkg_sourcerpm(pkg)
     XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_SOURCERPM), 0)));
   }
 
+void
+Pkg_packager(pkg)
+  URPM::Package pkg
+  PPCODE:
+  if (pkg->h) {
+    XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_PACKAGER), 0)));
+  }
+
+void
+Pkg_buildhost(pkg)
+  URPM::Package pkg
+  PPCODE:
+  if (pkg->h) {
+    XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_BUILDHOST), 0)));
+  }
+
+void
+Pkg_url(pkg)
+  URPM::Package pkg
+  PPCODE:
+  if (pkg->h) {
+    XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_URL), 0)));
+  }
+
 void
 Pkg_fullname(pkg)
   URPM::Package pkg
diff --git a/perl-URPM.spec b/perl-URPM.spec
index 5a61c40..b150dcd 100644
--- a/perl-URPM.spec
+++ b/perl-URPM.spec
@@ -1,7 +1,7 @@
 %define name perl-URPM
 %define real_name URPM
 %define version 0.82
-%define release 2mdk
+%define release 3mdk
 
 %{expand:%%define rpm_version %(rpm -q --queryformat '%{VERSION}-%{RELEASE}' rpm)}
 
@@ -49,6 +49,10 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Tue Apr 22 2003 François Pons <fpons@mandrakesoft.com> 0.82-3mdk
+- integrated patch from Olivier Thauvin to add misc method to
+  URPM::Package (packager, buildhost, url).
+
 * Mon Apr 14 2003 François Pons <fpons@mandrakesoft.com> 0.82-2mdk
 - fixed skip flag computation.
 
-- 
cgit v1.2.1