Dpkg::Changelog::Entry: add get_dpkg_changes() method here

This is the logical place for this function (as an object method).

1 files changed, 24 insertions, 0 deletions

diff --git a/scripts/Dpkg/Changelog/Entry.pm b/scripts/Dpkg/Changelog/Entry.pm
index 4cd78a032..c67d456c9 100644
--- a/scripts/Dpkg/Changelog/Entry.pm
+++ b/scripts/Dpkg/Changelog/Entry.pm
@@ -273,6 +273,30 @@ sub get_timestamp {
     return undef;
 }
 
+=item my $str = $entry->get_dpkg_changes()
+
+Returns a string that is suitable for usage in a C<Changes> field
+in the output format of C<dpkg-parsechangelog>.
+
+=cut
+
+sub get_dpkg_changes {
+    my ($self) = @_;
+    my $header = $self->get_part("header") || "";
+    $header =~ s/\s+$//;
+    my $changes = "\n $header\n .\n";
+    foreach my $line (@{$self->get_part("changes")}) {
+        $line =~ s/\s+$//;
+        if ($line eq "") {
+            $changes .= " .\n";
+        } else {
+            $changes .= " $line\n";
+        }
+    }
+    chomp $changes;
+    return $changes;
+}
+
 =back
 
 =head1 AUTHOR