[pdl] 01/02: Apply patch by Reiner Herrmann to update reproducible-build.patch. (closes: #829365)

[Bas Couwenberg]

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

sebastic pushed a commit to branch master
in repository pdl.

commit 1c58b870fa5b59cfab899c1b2a474f43a5ea5609
Author: Bas Couwenberg <sebastic at xs4all.nl>
Date:   Mon Jul 4 19:30:31 2016 +0200

    Apply patch by Reiner Herrmann to update reproducible-build.patch. (closes: #829365)
---
 debian/changelog                        |  8 +++
 debian/patches/reproducible-build.patch | 90 +++++++++++++++++++++++++++++++++
 2 files changed, 98 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 2e67bed..73fdcd7 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,11 @@
+pdl (1:2.016-4) UNRELEASED; urgency=medium
+
+  * Team upload.
+  * Apply patch by Reiner Herrmann to update reproducible-build.patch.
+    (closes: #829365)
+
+ -- Bas Couwenberg <sebastic at debian.org>  Mon, 04 Jul 2016 19:28:30 +0200
+
 pdl (1:2.016-3) unstable; urgency=medium
 
   * Team upload.
diff --git a/debian/patches/reproducible-build.patch b/debian/patches/reproducible-build.patch
index 298f0d2..ad91b26 100644
--- a/debian/patches/reproducible-build.patch
+++ b/debian/patches/reproducible-build.patch
@@ -105,3 +105,93 @@ Forwarded: https://sourceforge.net/p/pdl/patches/84/
          {
              $xsout .= "\t$var\n";
          }
+--- a/Basic/Core/Dev.pm
++++ b/Basic/Core/Dev.pm
+@@ -311,7 +311,7 @@ sub flushgeneric {  # Construct the gene
+ 
+    print $indent,"switch ($loopvar) {\n\n";
+ 
+-   for $case (keys %PDL_DATATYPES) {
++   for $case (sort keys %PDL_DATATYPES) {
+ 
+      $type = $PDL_DATATYPES{$case};
+ 
+@@ -760,7 +760,7 @@ sub generate_core_flags {
+     # access (read, if set is true then write as well; if postset true then
+     #         read first and write new value after that)
+     # to piddle's state
+-    foreach my $name ( keys %flags ) {
++    foreach my $name ( sort keys %flags ) {
+         my $flag = "PDL_" . ($flags{$name}{FLAG} || uc($name));
+         if ( $flags{$name}{set} ) {
+             print <<"!WITH!SUBS!";
+--- a/Basic/Core/pdlconv.c.PL
++++ b/Basic/Core/pdlconv.c.PL
+@@ -73,7 +73,7 @@ void pdl_${name}(pdl *a) {
+ 
+ ##### Generate code for each data type #####
+ 
+-for my $in ( keys %PDL_DATATYPES ) {
++for my $in ( sort keys %PDL_DATATYPES ) {
+ 
+     my $intype = $PDL_DATATYPES{$in};
+     print OUT <<"!WITH!SUBS!";
+@@ -191,7 +191,7 @@ void pdl_converttype( pdl** aa, int targ
+ 
+ ##### Generate code for each pair of data types #####
+ 
+-for my $in ( keys %PDL_DATATYPES ) { 
++for my $in ( sort keys %PDL_DATATYPES ) { 
+ 
+     my $intype = $PDL_DATATYPES{$in}; 
+ 
+@@ -204,7 +204,7 @@ for my $in ( keys %PDL_DATATYPES ) {
+          switch ( targtype ) {
+ !WITH!SUBS!
+ 
+-    for my $targ ( keys %PDL_DATATYPES ) {
++    for my $targ ( sort keys %PDL_DATATYPES ) {
+ 
+ 	next if $in eq $targ; # Skip duplicates
+ 	my $targtype = $PDL_DATATYPES{$targ};
+--- a/Basic/Core/pdlcore.c.PL
++++ b/Basic/Core/pdlcore.c.PL
+@@ -1027,7 +1027,7 @@ pdl* pdl_from_array(AV* av, AV* dims, in
+  */
+ !NO!SUBS!
+ 
+-for my $in ( keys %PDL_DATATYPES ) {
++for my $in ( sort keys %PDL_DATATYPES ) {
+ 
+   (my $type = $PDL_DATATYPES{$in}) =~ s/^PDL_//;
+ 
+@@ -1079,7 +1079,7 @@ PDL_Indx pdl_kludge_copy_$type(PDL_Indx
+ 
+         # perl loop to emit code for all the PDL types
+         #
+-        foreach my $switch_type (keys %PDL::Types::typehash) {
++        foreach my $switch_type (sort keys %PDL::Types::typehash) {
+ 
+         my $ctype = $PDL::Types::typehash{$switch_type}{ctype};
+ 
+--- a/Basic/Core/Types.pm.PL
++++ b/Basic/Core/Types.pm.PL
+@@ -219,6 +219,7 @@ sub gentypehashcode {
+   use Data::Dumper;
+   local $Data::Dumper::Terse = 1;
+   local $Data::Dumper::Indent = 1;
++  local $Data::Dumper::Sortkeys = 1;
+   local $Data::Dumper::Pad = "\t\t";
+   my $i = 0;
+   my $perlcode = '';
+--- a/Makefile.PL
++++ b/Makefile.PL
+@@ -266,7 +266,7 @@ sub myformat {
+     return "[$list]";
+   } elsif (ref $entry eq 'HASH') {
+     my $list = join ",\n", (map {('"'.quotemeta($_).'" => "'.
+-			       quotemeta($entry->{$_}).'"')} keys %$entry);
++			       quotemeta($entry->{$_}).'"')} sort keys %$entry);
+     $list = "\n$list\n\t\t" unless $list =~ /^\s*$/;
+     return "{$list}";
+   } else {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pdl.git