kylekrein/live-bootstrap
1
0
Fork 0
mirror of https://github.com/fosslinux/live-bootstrap.git synced 2026-03-20 02:02:58 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make Perl 5.18 reproducible

Browse source 
All of these only apply to Perl 5.18 and future perls are okay.
This commit backports
- a patch to make the include order of files in Encode package
  reproducible
- a patch to make Errno and Pod pm files reproducible
- a patch to make the ordering of .a files deterministic using ParseXS
This commit is contained in:
Samuel Tyler 2025-09-14 14:10:30 +10:00
parent e4980c20e8
commit 7bc5ec4555
3 changed files with 348 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

47
steps/perl-5.18.4/patches/ParseXS-reproducible.patch Normal file
View file

@ -0,0 +1,47 @@
SPDX-FileCopyrightText: 2013 Karl Williamson <public@khwilliamson.com>
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
SPDX-License-Identifier: Artistic-1.0
Backport of this commit to Perl 5.18 to ensure reproducibility of anything
that uses ParseXS.
From 06535856556a6bc0b3b1e4fac8671acb2a9aa8fd Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 15 Jul 2013 09:55:40 -0600
Subject: [PATCH] ParseXS: generate deterministically ordered output
The generated XS file output was varying between builds because of hash
randomisation. This sorts the output to make it the same for the same
inputs. This facilitates eyeballing diffs of two workspaces.
---
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git perl-5.18.4/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm perl-5.18.4/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index d50b5010cd..8e691f4ab6 100644
--- perl-5.18.4/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ perl-5.18.4/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -845,7 +845,8 @@ EOF
if (%{ $self->{XsubAliases} }) {
$self->{XsubAliases}->{$pname} = 0
unless defined $self->{XsubAliases}->{$pname};
- while ( my ($xname, $value) = each %{ $self->{XsubAliases} }) {
+ foreach my $xname (sort keys %{ $self->{XsubAliases} }) {
+ my $value = $self->{XsubAliases}->{$xname};
push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
# cv = $self->{newXS}(\"$xname\", XS_$Full_func_name, file$self->{proto});
# XSANY.any_i32 = $value;
@@ -859,7 +860,8 @@ EOF
EOF
}
elsif ($self->{interface}) {
- while ( my ($yname, $value) = each %{ $self->{Interfaces} }) {
+ foreach my $yname (sort keys %{ $self->{Interfaces} }) {
+ my $value = $self->{Interfaces}->{$yname};
$yname = "$Package\::$yname" unless $yname =~ /::/;
push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
# cv = $self->{newXS}(\"$yname\", XS_$Full_func_name, file$self->{proto});
--
2.49.1