This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libxray-absorption-perl.
commit c88d19558ae90bd0711ed0219216c1f977f2cabf
Author: gregor herrmann <gre...@debian.org>
Date: Thu Aug 20 13:35:16 2015 +0200
Add patch from Niko Tyno to make build reproducible.
Closes: #796155
---
...-Make-the-Storable-databases-reproducible.patch | 129 +++++++++++++++++++++
debian/patches/series | 1 +
2 files changed, 130 insertions(+)
diff --git a/debian/patches/0001-Make-the-Storable-databases-reproducible.patch
b/debian/patches/0001-Make-the-Storable-databases-reproducible.patch
new file mode 100644
index 0000000..7ebb6ff
--- /dev/null
+++ b/debian/patches/0001-Make-the-Storable-databases-reproducible.patch
@@ -0,0 +1,129 @@
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/796155
+Forwarded: no
+Reviewed-by: gregor herrmann <gre...@debian.org>
+Last-Update: 2015-08-20
+From: Niko Tyni <nt...@debian.org>
+Date: Wed, 19 Aug 2015 23:07:54 +0300
+Subject: [PATCH] Make the Storable databases reproducible
+ .
+ We set $Storable::canonical to make sure the hash keys are
+ ordered in the Storable structures, and sort the keys
+ when creating lists.
+
+
+--- a/data/chantler2st.PL
++++ b/data/chantler2st.PL
+@@ -35,6 +35,7 @@
+
+ use strict;
+ use Storable qw/nstore/;
++$Storable::canonical = 1;
+ ## use Data::Dumper;
+ use File::Spec;
+ use Chemistry::Elements qw(get_symbol);
+@@ -136,7 +137,7 @@
+
+ print " Getting energy list keys ... ";
+ my @energy_list = ();
+-foreach my $key (keys %chantler) {
++foreach my $key (sort keys %chantler) {
+ next if ($key eq "version");
+ next if ($key eq "nu");
+ foreach my $s ("k" , "l1", "l2", "l3", "m1", "m2", "m3", "m4", "m5",
+--- a/data/cl2st.PL
++++ b/data/cl2st.PL
+@@ -40,6 +40,7 @@
+
+ use strict;
+ use Storable qw/nstore/;
++$Storable::canonical = 1;
+ ## use Data::Dumper;
+ use File::Spec;
+ use Chemistry::Elements qw(get_symbol);
+@@ -124,7 +125,7 @@
+
+ print "$/ Getting energy list keys ... ";
+ my @energy_list = ();
+-foreach my $key (keys %cl) {
++foreach my $key (sort keys %cl) {
+ next if ($key eq "version");
+ next if ($key eq "nu");
+ foreach my $s ("k" , "l1", "l2", "l3", "m1", "m2", "m3", "m4", "m5",
+--- a/data/dat2st.PL
++++ b/data/dat2st.PL
+@@ -27,6 +27,7 @@
+
+ use strict;
+ use Storable qw/nstore/;
++$Storable::canonical = 1;
+ use File::Spec;
+
+ my $cvs_info = '$Id: dat2st.PL,v 1.1 1999/05/20 17:47:43 bruce Exp $ ';
+--- a/data/elam2st.PL
++++ b/data/elam2st.PL
+@@ -189,6 +189,7 @@
+
+ use strict;
+ use Storable qw/nstore/;
++$Storable::canonical = 1;
+ ## use Data::Dumper;
+ use File::Spec;
+
+@@ -329,7 +330,7 @@
+
+ print " Getting energy list keys ... ";
+ my @energy_list = ();
+-foreach my $key (keys %elam) {
++foreach my $key (sort keys %elam) {
+ next if ($key eq "version");
+ next if ($key eq "date");
+ next if ($key eq "nu");
+@@ -368,7 +369,7 @@
+
+ print " Getting line list keys ... ";
+ my @line_list = ();
+-foreach my $key (keys %elam) {
++foreach my $key (sort keys %elam) {
+ next if ($key eq "version");
+ next if ($key eq "date");
+ next if ($key eq "nu");
+--- a/data/henke2st.PL
++++ b/data/henke2st.PL
+@@ -32,6 +32,7 @@
+
+ use strict;
+ use Storable qw/nstore/;
++$Storable::canonical = 1;
+ ## use Data::Dumper;
+ use File::Spec;
+ use Chemistry::Elements qw(get_symbol);
+@@ -111,7 +112,7 @@
+
+ print " Getting energy list keys ... ";
+ my @energy_list = ();
+-foreach my $key (keys %henke) {
++foreach my $key (sort keys %henke) {
+ next if ($key eq "version");
+ next if ($key eq "nu");
+ foreach my $s ("k" , "l1", "l2", "l3", "m1", "m2", "m3", "m4", "m5",
+--- a/data/hubbell_g2st.PL
++++ b/data/hubbell_g2st.PL
+@@ -16,6 +16,7 @@
+ use Chemistry::Elements qw(get_symbol);
+ use File::Spec;
+ use Storable qw/nstore/;
++$Storable::canonical = 1;
+ #use Data::Dumper;
+
+ my $version = qv("0.2.0");
+--- a/data/shalt2st.PL
++++ b/data/shalt2st.PL
+@@ -27,6 +27,7 @@
+ use strict;
+ use Chemistry::Elements qw(get_symbol);
+ use Storable qw(nstore);
++$Storable::canonical = 1;
+ use Fatal qw(open close);
+ use File::Spec;
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..fcca1d3
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-Make-the-Storable-databases-reproducible.patch
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libxray-absorption-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
