diff options
| -rw-r--r-- | URPM.xs | 24 | ||||
| -rw-r--r-- | perl-URPM.spec | 6 |
2 files changed, 29 insertions, 1 deletions
@@ -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. |