[Reproducible-commits] [dpkg] 28/37: dpkg-genbuildinfo: Improve handling of parse_status return values
Jérémy Bobbio
lunar at moszumanska.debian.org
Sun Jan 31 16:28:40 UTC 2016
This is an automated email from the git hooks/post-receive script.
lunar pushed a commit to branch pu/buildinfo
in repository dpkg.
commit bf6b372394efec716cca9e72cfcb9a96a3df10fb
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
More information about the Reproducible-commits
mailing list