- add URPM::Package->changelogs, a wrapper around ->changelog_time, ->changelog_name, ->changelog_text

2 files changed, 12 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 8c858d4..c16f747 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,4 @@
+- add URPM::Package->changelogs, a wrapper around ->changelog_time, ->changelog_name, ->changelog_text
 - resolve kmod requires even if first choice is a source dkms
 
 Version 3.05 - 8 January 2008, by Pascal "Pixel" Rigaux
diff --git a/URPM.pm b/URPM.pm
index dd2134a..303c618 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -227,6 +227,17 @@ sub is_arch_compat {
     $arch_cache{$arch} = is_arch_compat__XS($pkg);
 }
 
+sub changelogs {
+    my ($pkg) = @_;
+
+    my @ti = $pkg->changelog_time or return;
+    my @na = $pkg->changelog_name or return;
+    my @tx = $pkg->changelog_text or return;
+    map {
+	{ time => $ti[$_], name => $na[$_], text => $tx[$_] };
+    } 0 .. $#ti;
+}
+
 package URPM::Transaction;
 our @ISA = qw(); # help perl_checker