Skip to content

Commit e4980c2

Browse files
fosslinuxfosslinux
committed
Make PPPort.pm reproducible in Perl 5.18+
1 parent 4322a20 commit e4980c2

File tree

6 files changed

+114
-0
lines changed

6 files changed

+114
-0
lines changed

‎steps/perl-5.18.4/patches/PPPort-pm-reproducible.patch‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
SPDX-FileCopyrightText: 2025 fosslinux <[email protected]>
2+
3+
SPDX-License-Identifier: Artistic-1.0
4+
5+
Sort the list of types in @api to make PPPort.pm reproducible.
6+
7+
diff --git perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL
8+
index e1118caf66..009beeb594 100644
9+
--- perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL
10+
+++ perl-5.18.4/cpan/Devel-PPPort/PPPort_pm.PL
11+
@@ -40,7 +40,7 @@ $data = expand($data);
12+
my @api = sort { lc $a cmp lc $b } keys %provides;
13+
14+
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
15+
- {join '', map "$1$_\n", @api}gem;
16+
+ {join '', map "$1$_\n", sort @api}gem;
17+
18+
{
19+
my $len = 0;

‎steps/perl-5.22.4/patches/PPPort-pm-reproducible.patch‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
SPDX-FileCopyrightText: 2025 fosslinux <[email protected]>
2+
3+
SPDX-License-Identifier: Artistic-1.0
4+
5+
Sort the list of types in @api to make PPPort.pm reproducible.
6+
7+
diff --git perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL
8+
index e1118caf66..009beeb594 100644
9+
--- perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL
10+
+++ perl-5.22.4/cpan/Devel-PPPort/PPPort_pm.PL
11+
@@ -40,7 +40,7 @@ $data = expand($data);
12+
my @api = sort { lc $a cmp lc $b } keys %provides;
13+
14+
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
15+
- {join '', map "$1$_\n", @api}gem;
16+
+ {join '', map "$1$_\n", sort @api}gem;
17+
18+
{
19+
my $len = 0;

‎steps/perl-5.24.4/patches/PPPort-pm-reproducible.patch‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
SPDX-FileCopyrightText: 2025 fosslinux <[email protected]>
2+
3+
SPDX-License-Identifier: Artistic-1.0
4+
5+
Sort the list of types in @api to make PPPort.pm reproducible.
6+
7+
diff --git perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL
8+
index e1118caf66..009beeb594 100644
9+
--- perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL
10+
+++ perl-5.24.4/cpan/Devel-PPPort/PPPort_pm.PL
11+
@@ -40,7 +40,7 @@ $data = expand($data);
12+
my @api = sort { lc $a cmp lc $b } keys %provides;
13+
14+
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
15+
- {join '', map "$1$_\n", @api}gem;
16+
+ {join '', map "$1$_\n", sort @api}gem;
17+
18+
{
19+
my $len = 0;

‎steps/perl-5.30.3/patches/PPPort-pm-reproducible.patch‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
SPDX-FileCopyrightText: 2025 fosslinux <[email protected]>
2+
3+
SPDX-License-Identifier: Artistic-1.0
4+
5+
Sort the list of types in @api to make PPPort.pm reproducible.
6+
7+
diff --git perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL
8+
index e1118caf66..009beeb594 100644
9+
--- perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL
10+
+++ perl-5.30.3/dist/Devel-PPPort/PPPort_pm.PL
11+
@@ -40,7 +40,7 @@ $data = expand($data);
12+
my @api = sort { lc $a cmp lc $b } keys %provides;
13+
14+
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
15+
- {join '', map "$1$_\n", @api}gem;
16+
+ {join '', map "$1$_\n", sort @api}gem;
17+
18+
{
19+
my $len = 0;

‎steps/perl-5.36.3/patches/PPPort-pm-reproducible.patch‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
SPDX-FileCopyrightText: 2025 fosslinux <[email protected]>
2+
3+
SPDX-License-Identifier: Artistic-1.0
4+
5+
Sort the list of types in @provided to make PPPort.pm reproducible.
6+
7+
diff --git perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL
8+
index cfbfaeb8fa..88c4bcc13c 100644
9+
--- perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL
10+
+++ perl-5.36.3/dist/Devel-PPPort/PPPort_pm.PL
11+
@@ -53,7 +53,7 @@ my @provided = sort dictionary_order keys %provides;
12+
13+
# which further expands $data.
14+
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
15+
- {join '', map "$1$_\n", @provided}gem;
16+
+ {join '', map "$1$_\n", sort @provided}gem;
17+
18+
{
19+
my $len = 0;

‎steps/perl-5.42.0/patches/PPPort-pm-reproducible.patch‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
SPDX-FileCopyrightText: 2025 fosslinux <[email protected]>
2+
3+
SPDX-License-Identifier: Artistic-1.0
4+
5+
Sort the list of types in @provided to make PPPort.pm reproducible.
6+
7+
diff --git perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL
8+
index cfbfaeb8fa..88c4bcc13c 100644
9+
--- perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL
10+
+++ perl-5.42.0/dist/Devel-PPPort/PPPort_pm.PL
11+
@@ -53,7 +53,7 @@ my @provided = sort dictionary_order keys %provides;
12+
13+
# which further expands $data.
14+
$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
15+
- {join '', map "$1$_\n", @provided}gem;
16+
+ {join '', map "$1$_\n", sort @provided}gem;
17+
18+
{
19+
my $len = 0;

0 commit comments

Comments
 (0)