[libsdl-perl] 02/04: added reproducible build patch

[dod at debian.org]

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

dod pushed a commit to branch master
in repository libsdl-perl.

commit d51b3a712ed7b441d2ce73e93a6ab03e4de525c0
Author: Dominique Dumont <dod at debian.org>
Date:   Tue May 26 13:29:31 2015 +0200

    added reproducible build patch
---
 debian/patches/reproducible-build | 52 +++++++++++++++++++++++++++++++++++++++
 debian/patches/series             |  1 +
 2 files changed, 53 insertions(+)

diff --git a/debian/patches/reproducible-build b/debian/patches/reproducible-build
new file mode 100644
index 0000000..8ca6262
--- /dev/null
+++ b/debian/patches/reproducible-build
@@ -0,0 +1,52 @@
+Description:  Fix reproducible build
+ Replaced all occurence of 'keys %foo' with 'sort keys %foo' in Build.PL and  lib used by Build.PL (in inc)
+Forwarded: NA
+Author: dod
+--- a/Build.PL
++++ b/Build.PL
+@@ -558,7 +558,7 @@
+ ### Mangle the compilable files into a format Module::Build can understand
+ my %xs =
+ 	map { $subsystems{$_}{file}{from} => $subsystems{$_}{file}{to} }
+-	keys %subsystems;
++	sort keys %subsystems;
+ 
+ ### Standard Module::Build stuff
+ $My::Builder::config = $My::Builder::config;       # Prevent a warning
+--- a/inc/My/Builder.pm
++++ b/inc/My/Builder.pm
+@@ -51,11 +51,11 @@
+ 
+ 	return unless defined($file_args);
+ 
+-	my @old_values = @$properties{ keys %$file_args };
+-	@$properties{ keys %$file_args } = values %$file_args;
++	my @old_values = @$properties{ sort keys %$file_args };
++	@$properties{ sort keys %$file_args } = values %$file_args;
+ 
+ 	$self->SUPER::process_xs($file);
+-	@$properties{ keys %$file_args } = @old_values;
++	@$properties{ sort keys %$file_args } = @old_values;
+ }
+ 
+ # which headers are installed?
+@@ -101,7 +101,7 @@
+ sub translate_table {
+ 	my ( $self, $subsystems, $libraries ) = @_;
+ 	my %ret;
+-	foreach my $m ( keys %$subsystems ) {
++	foreach my $m ( sort keys %$subsystems ) {
+ 		my $p = $subsystems->{$m}->{file}->{to};
+ 		$p =~ s|^lib/(.*)\.xs|$1|;
+ 		$p =~ s|/|::|g;
+--- a/inc/My/Builder/Darwin.pm
++++ b/inc/My/Builder/Darwin.pm
+@@ -90,7 +90,7 @@
+         $inc_lib_candidates->{ $ENV{SDL_INC} } = $ENV{SDL_LIB};
+     }
+ 
+-    foreach ( keys %$inc_lib_candidates ) {
++    foreach ( sort keys %$inc_lib_candidates ) {
+         my $ld = $inc_lib_candidates->{$_};
+         next unless -d $ld;
+         my ($found_lib) = _find_file( $ld,
diff --git a/debian/patches/series b/debian/patches/series
index a68b985..99f94f2 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -7,3 +7,4 @@ fix_spelling
 fix_api_spelling
 hardcode-default-font
 fix-inline-ccflags
+reproducible-build

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