- urpmq:

  o use URPM::Package->changelogs (need perl-URPM 3.06)

2 files changed, 5 insertions, 6 deletions

diff --git a/NEWS b/NEWS
index 75f5ca8e..1d8a1b1a 100644
--- a/NEWS
+++ b/NEWS
@@ -18,6 +18,8 @@
   o always prompt before doing a priority-upgrade transaction, even if there
     is only one priority upgrade package (since there will be more packages to
     install after restarting urpmi)
+- urpmq:
+  o use URPM::Package->changelogs (need perl-URPM 3.06)
 
 Version 4.10.19 - 12 December 2007, by Pascal "Pixel" Rigaux
 
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");