Skip to content
Snippets Groups Projects
Commit 1c58b870 authored by Bas Couwenberg's avatar Bas Couwenberg
Browse files

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

parent 6cc9034f
No related branches found
No related tags found
No related merge requests found
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 pdl (1:2.016-3) unstable; urgency=medium
* Team upload. * Team upload.
......
...@@ -105,3 +105,93 @@ Forwarded: https://sourceforge.net/p/pdl/patches/84/ ...@@ -105,3 +105,93 @@ Forwarded: https://sourceforge.net/p/pdl/patches/84/
{ {
$xsout .= "\t$var\n"; $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 {
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment