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 <sebas...@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 <sebas...@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 _______________________________________________ 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