mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-22 02:56:31 +01:00
Make PPPort.pm reproducible in Perl 5.18+
This commit is contained in:
parent
4322a200f5
commit
e4980c20e8
6 changed files with 114 additions and 0 deletions
19
steps/perl-5.18.4/patches/PPPort-pm-reproducible.patch
Normal file
19
steps/perl-5.18.4/patches/PPPort-pm-reproducible.patch
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
|
||||||
|
|
||||||
|
SPDX-License-Identifier: Artistic-1.0
|
||||||
|
|
||||||
|
Sort the list of types in @api to make PPPort.pm reproducible.
|
||||||
|
|
||||||
|
diff --git perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
index e1118caf66..009beeb594 100644
|
||||||
|
--- perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
+++ perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
@@ -40,7 +40,7 @@ $data = expand($data);
|
||||||
|
my @api = sort { lc $a cmp lc $b } keys %provides;
|
||||||
|
|
||||||
|
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
|
||||||
|
- {join '', map "$1$_\n", @api}gem;
|
||||||
|
+ {join '', map "$1$_\n", sort @api}gem;
|
||||||
|
|
||||||
|
{
|
||||||
|
my $len = 0;
|
||||||
19
steps/perl-5.22.4/patches/PPPort-pm-reproducible.patch
Normal file
19
steps/perl-5.22.4/patches/PPPort-pm-reproducible.patch
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
|
||||||
|
|
||||||
|
SPDX-License-Identifier: Artistic-1.0
|
||||||
|
|
||||||
|
Sort the list of types in @api to make PPPort.pm reproducible.
|
||||||
|
|
||||||
|
diff --git perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
index e1118caf66..009beeb594 100644
|
||||||
|
--- perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
+++ perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
@@ -40,7 +40,7 @@ $data = expand($data);
|
||||||
|
my @api = sort { lc $a cmp lc $b } keys %provides;
|
||||||
|
|
||||||
|
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
|
||||||
|
- {join '', map "$1$_\n", @api}gem;
|
||||||
|
+ {join '', map "$1$_\n", sort @api}gem;
|
||||||
|
|
||||||
|
{
|
||||||
|
my $len = 0;
|
||||||
19
steps/perl-5.24.4/patches/PPPort-pm-reproducible.patch
Normal file
19
steps/perl-5.24.4/patches/PPPort-pm-reproducible.patch
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
|
||||||
|
|
||||||
|
SPDX-License-Identifier: Artistic-1.0
|
||||||
|
|
||||||
|
Sort the list of types in @api to make PPPort.pm reproducible.
|
||||||
|
|
||||||
|
diff --git perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
index e1118caf66..009beeb594 100644
|
||||||
|
--- perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
+++ perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL
|
||||||
|
@@ -40,7 +40,7 @@ $data = expand($data);
|
||||||
|
my @api = sort { lc $a cmp lc $b } keys %provides;
|
||||||
|
|
||||||
|
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
|
||||||
|
- {join '', map "$1$_\n", @api}gem;
|
||||||
|
+ {join '', map "$1$_\n", sort @api}gem;
|
||||||
|
|
||||||
|
{
|
||||||
|
my $len = 0;
|
||||||
19
steps/perl-5.30.3/patches/PPPort-pm-reproducible.patch
Normal file
19
steps/perl-5.30.3/patches/PPPort-pm-reproducible.patch
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
|
||||||
|
|
||||||
|
SPDX-License-Identifier: Artistic-1.0
|
||||||
|
|
||||||
|
Sort the list of types in @api to make PPPort.pm reproducible.
|
||||||
|
|
||||||
|
diff --git perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
index e1118caf66..009beeb594 100644
|
||||||
|
--- perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
+++ perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
@@ -40,7 +40,7 @@ $data = expand($data);
|
||||||
|
my @api = sort { lc $a cmp lc $b } keys %provides;
|
||||||
|
|
||||||
|
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
|
||||||
|
- {join '', map "$1$_\n", @api}gem;
|
||||||
|
+ {join '', map "$1$_\n", sort @api}gem;
|
||||||
|
|
||||||
|
{
|
||||||
|
my $len = 0;
|
||||||
19
steps/perl-5.36.3/patches/PPPort-pm-reproducible.patch
Normal file
19
steps/perl-5.36.3/patches/PPPort-pm-reproducible.patch
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
|
||||||
|
|
||||||
|
SPDX-License-Identifier: Artistic-1.0
|
||||||
|
|
||||||
|
Sort the list of types in @provided to make PPPort.pm reproducible.
|
||||||
|
|
||||||
|
diff --git perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
index cfbfaeb8fa..88c4bcc13c 100644
|
||||||
|
--- perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
+++ perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
@@ -53,7 +53,7 @@ my @provided = sort dictionary_order keys %provides;
|
||||||
|
|
||||||
|
# which further expands $data.
|
||||||
|
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
|
||||||
|
- {join '', map "$1$_\n", @provided}gem;
|
||||||
|
+ {join '', map "$1$_\n", sort @provided}gem;
|
||||||
|
|
||||||
|
{
|
||||||
|
my $len = 0;
|
||||||
19
steps/perl-5.42.0/patches/PPPort-pm-reproducible.patch
Normal file
19
steps/perl-5.42.0/patches/PPPort-pm-reproducible.patch
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
|
||||||
|
|
||||||
|
SPDX-License-Identifier: Artistic-1.0
|
||||||
|
|
||||||
|
Sort the list of types in @provided to make PPPort.pm reproducible.
|
||||||
|
|
||||||
|
diff --git perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
index cfbfaeb8fa..88c4bcc13c 100644
|
||||||
|
--- perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
+++ perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL
|
||||||
|
@@ -53,7 +53,7 @@ my @provided = sort dictionary_order keys %provides;
|
||||||
|
|
||||||
|
# which further expands $data.
|
||||||
|
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
|
||||||
|
- {join '', map "$1$_\n", @provided}gem;
|
||||||
|
+ {join '', map "$1$_\n", sort @provided}gem;
|
||||||
|
|
||||||
|
{
|
||||||
|
my $len = 0;
|
||||||
Loading…
Add table
Add a link
Reference in a new issue