diff options
| author | Raphael Hertzog <hertzog@debian.org> | 2008-01-14 22:39:48 +0100 |
|---|---|---|
| committer | Raphael Hertzog <hertzog@debian.org> | 2008-01-18 09:53:06 +0100 |
| commit | 808f74dc53b446d46ab9e7d426d50e7081d7403a (patch) | |
| tree | a9213000ea4d74ec9a5110477656d3c64d7d5060 /scripts/dpkg-genchanges.pl | |
| parent | 05f5eb2927fcc973e8ba0679d0904846e26ca79f (diff) | |
| download | dpkg-808f74dc53b446d46ab9e7d426d50e7081d7403a.tar.gz | |
Integrated dpkg-parsechangelog processing into Dpkg::Changelog::parse_changelog()
* scripts/Dpkg/Changelog.pm (parse_changelog): Rewrite it completely
to not call dpkg-parsechangelog but do the work of this program by itself.
* scripts/dpkg-parsechangelog.pl: Rewrote it to use the enhanced
parse_changelog() function.
* scripts/dpkg-genchanges.pl, script/dpkg-gencontrol.pl: Adapted to use
the modified parse_changelog().
* scripts/dpkg-gensymbols.pl, scripts/dpkg-source.pl: Likewise.
Diffstat (limited to 'scripts/dpkg-genchanges.pl')
| -rwxr-xr-x | scripts/dpkg-genchanges.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/scripts/dpkg-genchanges.pl b/scripts/dpkg-genchanges.pl index e88092f66..7c8d8595c 100755 --- a/scripts/dpkg-genchanges.pl +++ b/scripts/dpkg-genchanges.pl @@ -181,7 +181,12 @@ while (@ARGV) { } } -my $changelog = parse_changelog($changelogfile, $changelogformat, $since); +# Retrieve info from the current changelog entry +my %options = (file => $changelogfile); +$options{"changelogformat"} = $changelogformat if $changelogformat; +$options{"since"} = $since if $since; +my $changelog = parse_changelog(%options); +# Other initializations my $control = Dpkg::Control->new($controlfile); my $fields = Dpkg::Fields::Object->new(); $substvars->set_version_substvars($changelog->{"Version"}); |