diff -Nru libxray-absorption-perl-3.0.1/debian/changelog libxray-absorption-perl-3.0.1/debian/changelog
--- libxray-absorption-perl-3.0.1/debian/changelog	2015-07-28 16:43:30.000000000 +0000
+++ libxray-absorption-perl-3.0.1/debian/changelog	2015-08-20 11:36:24.000000000 +0000
@@ -1,3 +1,10 @@
+libxray-absorption-perl (3.0.1-3) unstable; urgency=medium
+
+  * Team upload.
+  * Add patch from Niko Tyno to make build reproducible. Closes: #796155
+
+ -- gregor herrmann <gregoa@debian.org>  Thu, 20 Aug 2015 13:35:38 +0200
+
 libxray-absorption-perl (3.0.1-2) unstable; urgency=medium
 
   * Team upload.
diff -Nru libxray-absorption-perl-3.0.1/debian/patches/0001-Make-the-Storable-databases-reproducible.patch libxray-absorption-perl-3.0.1/debian/patches/0001-Make-the-Storable-databases-reproducible.patch
--- libxray-absorption-perl-3.0.1/debian/patches/0001-Make-the-Storable-databases-reproducible.patch	1970-01-01 00:00:00.000000000 +0000
+++ libxray-absorption-perl-3.0.1/debian/patches/0001-Make-the-Storable-databases-reproducible.patch	2015-08-20 11:36:24.000000000 +0000
@@ -0,0 +1,129 @@
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/796155
+Forwarded: no
+Reviewed-by: gregor herrmann <gregoa@debian.org>
+Last-Update: 2015-08-20
+From: Niko Tyni <ntyni@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 -Nru libxray-absorption-perl-3.0.1/debian/patches/series libxray-absorption-perl-3.0.1/debian/patches/series
--- libxray-absorption-perl-3.0.1/debian/patches/series	1970-01-01 00:00:00.000000000 +0000
+++ libxray-absorption-perl-3.0.1/debian/patches/series	2015-08-20 11:36:24.000000000 +0000
@@ -0,0 +1 @@
+0001-Make-the-Storable-databases-reproducible.patch