[Reproducible-commits] [dpkg] 31/90: Dpkg::Changelog::Parse: Remove intermediate variable $changelogfile

[Jérémy Bobbio]

This is an automated email from the git hooks/post-receive script.

lunar pushed a commit to branch pu/reproducible_builds
in repository dpkg.

commit 0ac9c7b49920a795dee9ded28c1f54218926ce96
Author: Guillem Jover <guillem at debian.org>
Date:   Tue Jul 28 19:48:14 2015 +0200

    Dpkg::Changelog::Parse: Remove intermediate variable $changelogfile
---
 scripts/Dpkg/Changelog/Parse.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scripts/Dpkg/Changelog/Parse.pm b/scripts/Dpkg/Changelog/Parse.pm
index d92a666..53f0320 100644
--- a/scripts/Dpkg/Changelog/Parse.pm
+++ b/scripts/Dpkg/Changelog/Parse.pm
@@ -104,7 +104,6 @@ sub changelog_parse_plugin {
 
     # Setup and sanity checks.
     $options{file} //= 'debian/changelog';
-    my $changelogfile = $options{file};
 
     my @parserpath = ('/usr/local/lib/dpkg/parsechangelog',
                       "$Dpkg::LIBDIR/parsechangelog",
@@ -121,7 +120,7 @@ sub changelog_parse_plugin {
 	$format = $options{changelogformat};
 	delete $options{changelogformat};
     } else {
-	$format = _changelog_detect_format($changelogfile);
+	$format = _changelog_detect_format($options{file});
     }
 
     # Find the right changelog parser
@@ -139,7 +138,7 @@ sub changelog_parse_plugin {
     error(g_('changelog format %s is unknown'), $format) if not defined $parser;
 
     # Create the arguments for the changelog parser
-    my @exec = ($parser, "-l$changelogfile");
+    my @exec = ($parser, "-l$options{file}");
     foreach my $option (keys %options) {
 	if ($option =~ m/^-/) {
 	    # Options passed untouched

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/dpkg.git