From 62d5a9ee0698ba90711734fc8b155a6e21fc9daf Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 11 Jan 2008 07:53:51 +0000 Subject: - urpmq: o use URPM::Package->changelogs (need perl-URPM 3.06) --- urpmq | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'urpmq') diff --git a/urpmq b/urpmq index 8e05cde6..345548c4 100755 --- a/urpmq +++ b/urpmq @@ -406,12 +406,9 @@ if ($options{list_aliases}) { } } if ($options{changelog}) { - if ($pkg->changelog_time && $pkg->changelog_name && $pkg->changelog_text) { - my @ti = $pkg->changelog_time; - my @na = $pkg->changelog_name; - my @tx = $pkg->changelog_text; - foreach my $i (0 .. $#ti) { - print "* " . urpm::msg::localtime2changelog($ti[$i]) . " $na[$i]\n$tx[$i]\n\n"; + if (my @changelogs = $pkg->changelogs) { + foreach (@changelogs) { + print "* " . urpm::msg::localtime2changelog($_->{time}) . " $_->{name}\n$_->{text}\n\n"; } } else { print STDERR N("No changelog found\n"); -- cgit v1.2.1