File reproducible.patch of Package perl-Encode-JIS2K

Overview Repositories Revisions Requests Users Attributes Meta

File reproducible.patch of Package perl-Encode-JIS2K

Sort hash keys list

because we want reproducible output
even though hash order is undeterministic

See https://reproducible-builds.org/ for why this is good.
Index: Encode-JIS2K-0.02/Makefile.PL
===================================================================
--- Encode-JIS2K-0.02.orig/Makefile.PL
+++ Encode-JIS2K-0.02/Makefile.PL
@@ -73,7 +73,7 @@ sub post_initialize
     $self->{'C'} = ["$name.c"];
     # $self->{'H'} = [$self->catfile($self->updir,'encode.h')];
     my %xs;
-    foreach my $table (keys %tables) {
+    foreach my $table (sort keys %tables) {
 	push (@{$self->{'C'}},"$table.c");
 	# Do NOT add $table.h etc. to H_FILES unless we own up as to how they
 	# get built.
@@ -91,7 +91,7 @@ sub post_initialize
 #define U8 U8
 #include "encode.h"
 END
-    foreach my $table (keys %tables) {
+    foreach my $table (sort keys %tables) {
 	print XS qq[#include "${table}.h"\n];
     }
     print XS <<"END";
@@ -120,7 +120,7 @@ PROTOTYPES: DISABLE
 BOOT:
 {
 END
-    foreach my $table (keys %tables) {
+    foreach my $table (sort keys %tables) {
 	print XS qq[#include "${table}.exh"\n];
     }
     print XS "}\n";
@@ -134,14 +134,14 @@ sub postamble
     my $dir  = "."; # $self->catdir('Encode');
     my $str  = "# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
     $str    .= "$name.c : $name.xs ";
-    foreach my $table (keys %tables)
+    foreach my $table (sort keys %tables)
     {
 	$str .= " $table.c";
     }
     $str .= "\n\n";
     $str .= "$name\$(OBJ_EXT) : $name.c\n\n";
 
-    foreach my $table (keys %tables)
+    foreach my $table (sort keys %tables)
     {
 	my $numlines = 1;
 	my $lengthsofar = length($str);

Places

File reproducible.patch of Package perl-Encode-JIS2K

Places