From fa32dbfc6f09b559587b9ddab2de9f390b25ec44 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 8 Feb 2008 15:32:23 +0000 Subject: (extract_header) adapt to new ->changelogs() for local packages (instead of ->changelog_name(), ->changelog_text() and ->changelog_time()) --- Rpmdrake/pkg.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Rpmdrake/pkg.pm') diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index d2755e01..c2149e08 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -159,8 +159,8 @@ sub extract_header { add2hash($pkg, { description => rpm_description($p->description) }); add2hash($pkg, { files => scalar($p->files) ? [ $p->files ] : [ N("(none)") ], - changelog => $chg_prepro->(join("\n", mapn { "* " . localtime2changelog($_[2]) . " $_[0]\n\n$_[1]\n" } - [ $p->changelog_name ], [ $p->changelog_text ], [ $p->changelog_time ])) }); + changelog => $chg_prepro->(join("\n", map { + "* " . localtime2changelog($_->{time}) . " $_->{name}\n\n$_->{text}\n" } $p->changelogs)) }); $p->pack_header; # needed in order to call methods on objects outside ->traverse } elsif ($xml_info_pkgs{$name}) { if ($xml_info eq 'info') { -- cgit v1.2.1