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