Apply patch by Reiner Herrmann to update reproducible-build.patch. (closes: #829365)

debian/changelog

+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@debian.org>  Mon, 04 Jul 2016 19:28:30 +0200
+
 pdl (1:2.016-3) unstable; urgency=medium
 
   * Team upload.

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 {