aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--URPM.xs24
-rw-r--r--perl-URPM.spec6
2 files changed, 29 insertions, 1 deletions
diff --git a/URPM.xs b/URPM.xs
index 3e56ecc..f9fef55 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -954,6 +954,30 @@ Pkg_sourcerpm(pkg)
}
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
PREINIT:
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.