[Reproducible-commits] [dpkg] 54/63: dpkg-genbuildinfo: Improve handling of parse_status return values

[Jérémy Bobbio]

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

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

commit 181c082985b337705e369273ca98225603b30c54
Author: Jérémy Bobbio <lunar at debian.org>
Date:   Fri Jan 29 16:30:50 2016 +0000

    dpkg-genbuildinfo: Improve handling of parse_status return values
---
 scripts/dpkg-genbuildinfo.pl | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/scripts/dpkg-genbuildinfo.pl b/scripts/dpkg-genbuildinfo.pl
index ed02139..a689a99 100755
--- a/scripts/dpkg-genbuildinfo.pl
+++ b/scripts/dpkg-genbuildinfo.pl
@@ -281,16 +281,13 @@ if ($always_include_path) {
 
 $checksums->export_to_control($fields);
 
-my @status = parse_status("$admindir/status");
-my $facts = shift @status;
-my %depends=%{shift @status};
-my @essential_pkgs=@{shift @status};
+my ($facts, $depends, $essential_pkgs) = parse_status("$admindir/status");
 my $deps;
 my %env_pkgs;
 
 # parse essential list
 
-append_deps(\%env_pkgs, @essential_pkgs, run_vendor_hook('builtin-build-depends'),
+append_deps(\%env_pkgs, @{$essential_pkgs}, run_vendor_hook('builtin-build-depends'),
                         $control->get_source->{'Build-Depends'});
 
 if ($include & BUILD_ARCH_DEP) {
@@ -305,7 +302,7 @@ while (my ($pkg, $seen) = each(%env_pkgs)) {
     next if $seen;
     $env_pkgs{$pkg} = 1; # mark as seen
     next unless defined $facts->{pkg}->{$pkg}->[0];
-    append_deps(\%env_pkgs, @{$depends{$pkg}});
+    append_deps(\%env_pkgs, @{$depends->{$pkg}});
     keys %env_pkgs; # reset iterator
 }
 

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