From 894364fca9657e42b529d7bb647699dfc5dd4e50 Mon Sep 17 00:00:00 2001
From: Raphael Hertzog <hertzog@debian.org>
Date: Tue, 1 Jan 2008 18:10:22 +0100
Subject: [PATCH] Dpkg::Changelog: New function parse_changelog to replace
 controllib's parsechangelog

---
 scripts/Dpkg/Changelog.pm | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/scripts/Dpkg/Changelog.pm b/scripts/Dpkg/Changelog.pm
index 80fc7012..8a5cc7fe 100644
--- a/scripts/Dpkg/Changelog.pm
+++ b/scripts/Dpkg/Changelog.pm
@@ -39,7 +39,8 @@ use English;
 
 use Dpkg;
 use Dpkg::Gettext;
-use Dpkg::ErrorHandling qw(warning report);
+use Dpkg::ErrorHandling qw(warning report syserr subprocerr);
+use Dpkg::Cdata;
 
 use base qw(Exporter);
 
@@ -48,6 +49,7 @@ our %EXPORT_TAGS = ( 'util' => [ qw(
                 data2rfc822
                 data2rfc822_mult
                 get_dpkg_changes
+		parse_changelog
 ) ] );
 our @EXPORT_OK = @{$EXPORT_TAGS{util}};
 
@@ -692,6 +694,28 @@ sub get_dpkg_changes {
     return $changes;
 }
 
+=pod
+
+=head3 parse_changelog($file, $format, $since)
+
+Calls "dpkg-parsechangelog -l$file -F$format -v$since"  and returns a
+Dpkg::Cdata::Object with the values output by the program.
+
+=cut
+sub parse_changelog {
+    my ($changelogfile, $changelogformat, $since) = @_;
+
+    my @exec = ('dpkg-parsechangelog');
+    push(@exec, "-l$changelogfile");
+    push(@exec, "-F$changelogformat") if defined($changelogformat);
+    push(@exec, "-v$since") if defined($since);
+
+    open(PARSECH, "-|", @exec) || syserr(_g("fork for parse changelog"));
+    my $fields = parsecdata(\*PARSECH, _g("parsed version of changelog"));
+    close(PARSECH) || subprocerr(_g("parse changelog"));
+    return $fields;
+}
+
 =head1 NAME
 
 Dpkg::Changelog::Entry - represents one entry in a Debian changelog
-- 
2.39.5