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

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

commit 659dbe8d0659922ab76ba8e6aca16323696c5536
Author: Niko Tyni <>
Date:   Sat Aug 30 20:14:16 2014 -0700

    Add a new program, gen-buildinfo, which outputs a *.buildinfo file
    We outsource all the work to dpkg-genchanges and dh_buildinfo,
    shamelessly abusing them in the process.
    This is a proof of concept. The functionality should probably live in
    the dh-buildinfo package, but we're putting it in debhelper for now to
    reduce the number of patched packages needed by the "Debian Reproducible
    Builds" effort.
    To comply with the full specification in
    dh_buildinfo still needs to learn to include architecture specifications
    in its package list. This script should need no changes when that is
 gen-buildinfo | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)

diff --git a/gen-buildinfo b/gen-buildinfo
new file mode 100755
index 0000000..c595ab2
--- /dev/null
+++ b/gen-buildinfo
@@ -0,0 +1,53 @@
+#!/usr/bin/perl -w
+# Output a *.buildinfo file from dpkg-genchanges and dh_buildinfo output
+# Copyright © 2014 Niko Tyni <>
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 2 of the License, or
+# (at your option) any later version.
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# General Public License for more details.
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <>.
+use strict;
+my %changes;
+my $key;
+for (qx{dpkg-genchanges 2>/dev/null}) {
+    chomp;
+    /^\s+(\S+)/ and $changes{$key} .= "$_\n", next;
+    /^(.+?):\s*(.*)/ and $changes{$key=$1} = "$2\n";
+print "$_: $changes{$_}" for (qw(Format Source Version Binary Architecture));
+my $arch = qx/dpkg-architecture -qDEB_BUILD_ARCH/;
+print "Build-Architecture: $arch";
+print "$_: $changes{$_}" for (qw(Checksums-Sha256));
+open(I, "dh_buildinfo generate cat |")
+    or die("exec dh_buildinfo failed: $!");
+print "Build-Environment:\n";
+my @out;
+my %dups;
+while (<I>) {
+    next if /^\s/;
+    chomp;
+    my ($pkg, $version) = split;
+    push @out, " $pkg (= $version)" if !$dups{"${pkg}_$version"}++
+close I
+    or die("dh_buildinfo exited with nonzero status");
+print join(",\n", sort @out);
+print "\n";

Alioth's /usr/local/bin/git-commit-notice on 

Reproducible-builds mailing list

Reply via email to