Make PPPort.pm reproducible in Perl 5.18+

This commit is contained in:
Samuel Tyler 2025-09-14 14:03:24 +10:00
parent 4322a200f5
commit e4980c20e8
6 changed files with 114 additions and 0 deletions

View 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;

View 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;

View 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;

View 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;

View 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;

View 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;