From 468c2daada584c066dcb1ee42e2f038f64242e7a Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Wed, 4 Jun 2003 09:47:08 +0000 Subject: Add Pkg_buildtime to get RPMTAG_BUILDTIME --- URPM.xs | 12 ++++++++++++ perl-URPM.spec | 6 +++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/URPM.xs b/URPM.xs index 0a0357b..c04baaf 100644 --- a/URPM.xs +++ b/URPM.xs @@ -1306,6 +1306,18 @@ Pkg_buildhost(pkg) XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_BUILDHOST), 0))); } +int +Pkg_buildtime(pkg) + URPM::Package pkg + CODE: + if (pkg->h) { + RETVAL = get_int(pkg->h, RPMTAG_BUILDTIME); + } else { + RETVAL = 0; + } + OUTPUT: + RETVAL + void Pkg_url(pkg) URPM::Package pkg diff --git a/perl-URPM.spec b/perl-URPM.spec index e5242d8..5b20bbe 100644 --- a/perl-URPM.spec +++ b/perl-URPM.spec @@ -1,7 +1,7 @@ %define name perl-URPM %define real_name URPM %define version 0.90 -%define release 5mdk +%define release 6mdk %{expand:%%define rpm_version %(rpm -q --queryformat '%{VERSION}-%{RELEASE}' rpm)} @@ -51,6 +51,9 @@ rm -rf $RPM_BUILD_ROOT %changelog +* Tue Jun 03 2003 Warly 0.90-6mdk +- add Pkg_buildtime to get RPMTAG_BUILDTIME + * Tue Jun 3 2003 François Pons 0.90-5mdk - fixed typo in parse_rpm method. @@ -64,6 +67,7 @@ rm -rf $RPM_BUILD_ROOT * Wed May 28 2003 Warly 0.90-3mdk - add license function for urpm->{depslist}[$id] +- fix Urpm_parse_rpm argument initialization (sytematically setting packing and keep_all_tags to zero) * Mon May 26 2003 François Pons 0.90-2mdk - fixed URPM::resolve_requested return value (list of package -- cgit v1.2.1