Fix locale when use embedding Perl in C (bug #2240458)

Signed-off-by: Fedora Release Engineering <releng@fedoraproject.org>

.gitignore

@@ -39,3 +39,5 @@ perl-5.12.1.tar.gz
 /perl-5.34.0.tar.xz
 /perl-5.34.1.tar.xz
 /perl-5.36.0.tar.xz
+/perl-5.36.1.tar.xz
+/perl-5.38.0.tar.xz

perl-5.10.0-libresolv.patch

@@ -1,12 +1,12 @@
 diff -up perl-5.10.0/Configure.didi perl-5.10.0/Configure
 --- perl-5.10.0/Configure.didi	2007-12-18 11:47:07.000000000 +0100
 +++ perl-5.10.0/Configure	2008-07-21 10:51:16.000000000 +0200
-@@ -1483,7 +1483,7 @@ archname=''
+@@ -1510,7 +1510,7 @@ archname=''
  usereentrant='undef'
  : List of libraries we want.
  : If anyone needs extra -lxxx, put those in a hint file.
--libswanted="cl pthread socket bind inet nsl ndbm gdbm dbm db malloc dl ld"
-+libswanted="cl pthread socket resolv inet nsl ndbm gdbm dbm db malloc dl ld"
+-libswanted="cl pthread socket bind inet ndbm gdbm dbm db malloc dl ld"
++libswanted="cl pthread socket resolv inet ndbm gdbm dbm db malloc dl ld"
  libswanted="$libswanted sun m crypt sec util c cposix posix ucb bsd BSD"
  : We probably want to search /usr/shlib before most other libraries.
  : This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist.

perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch

@@ -20,14 +20,14 @@ diff --git a/MANIFEST b/MANIFEST
 index 397252a..d7c519b 100644
 --- a/MANIFEST
 +++ b/MANIFEST
-@@ -3424,6 +3424,7 @@ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/aix.pm	CBuilder methods fo
- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/cygwin.pm	CBuilder methods for cygwin
- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/darwin.pm	CBuilder methods for darwin
+@@ -3886,6 +3886,7 @@ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/aix.pm	CBuilder methods fo
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/cygwin.pm		CBuilder methods for cygwin
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/darwin.pm		CBuilder methods for darwin
  dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/dec_osf.pm	CBuilder methods for OSF
-+dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm	CBuilder methods for Linux
- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/os2.pm	CBuilder methods for OS/2
- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Unix.pm	CBuilder methods for Unix
- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/VMS.pm	CBuilder methods for VMS
++dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm		CBuilder methods for Linux
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/os2.pm		CBuilder methods for OS/2
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Unix.pm		CBuilder methods for Unix
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/VMS.pm		CBuilder methods for VMS
 diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm
 new file mode 100644
 index 0000000..e3251c4

perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch

@@ -23,14 +23,14 @@ diff --git a/MANIFEST b/MANIFEST
 index 6af238c..d4f0c56 100644
 --- a/MANIFEST
 +++ b/MANIFEST
-@@ -835,6 +835,7 @@ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS390.pm
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS390.pm		MakeMaker methods for OS 390
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm			MakeMaker methods for QNX
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm			MakeMaker methods for Unix
-+cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm		Independed MM methods
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm			MakeMaker methods for U/WIN
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm			MakeMaker methods for VMS
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm			MakeMaker methods for VOS
+@@ -1037,6 +1037,7 @@ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS390.pm
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS390.pm				MakeMaker methods for OS 390
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm					MakeMaker methods for QNX
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm					MakeMaker methods for Unix
++cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm				Independed MM methods
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm					MakeMaker methods for U/WIN
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm					MakeMaker methods for VMS
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm					MakeMaker methods for VOS
 diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm
 new file mode 100644
 index 0000000..6bbc0d8

perl-5.38.0-Revert-Do-uselocale-earlier-in-init-process.patch

@@ -0,0 +1,15 @@
+diff -up perl-5.38.0/locale.c.orig perl-5.38.0/locale.c
+--- perl-5.38.0/locale.c.orig	2023-09-25 13:41:37.090493602 +0200
++++ perl-5.38.0/locale.c	2023-09-25 13:42:07.636750287 +0200
+@@ -5280,11 +5280,6 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
+     DEBUG_Lv(PerlIO_printf(Perl_debug_log, "created C object %p\n",
+                            PL_C_locale_obj));
+ 
+-    /* Switch to using the POSIX 2008 interface now.  This would happen below
+-     * anyway, but deferring it can lead to leaks of memory that would also get
+-     * malloc'd in the interim */
+-    uselocale(PL_C_locale_obj);
+-
+ #    ifdef USE_LOCALE_NUMERIC
+ 
+     PL_underlying_numeric_obj = duplocale(PL_C_locale_obj);

perl-configure-c99.patch

@@ -1,94 +0,0 @@
-Avoid implicit ints and implicit function declarations, for improved
-compatibility with future compilers which will reject them by default.
-
-Submitted upstream: <https://github.com/Perl/perl5/pull/20718>
-
-diff --git a/Configure b/Configure
-index 9bd6a7ad9465c2ce..75c090edc37015da 100755
---- a/Configure
-+++ b/Configure
-@@ -4638,7 +4638,7 @@ esac
- # so we will take those off from locincpth.
- case "$gccversion" in
- 3.*)
--    echo "main(){}">try.c
-+    echo "int main(){}">try.c
-     for incdir in $locincpth; do
-        warn=`$cc $ccflags -I$incdir -c try.c 2>&1 | \
- 	     grep '^c[cp]p*[01]: warning: changing search order '`
-@@ -5771,6 +5771,7 @@ case "$intsize" in
- #ifdef I_STDLIB
- #include <stdlib.h>
- #endif
-+#include <stdio.h>
- int main()
- {
- 	printf("intsize=%d;\n", (int)sizeof(int));
-@@ -6844,6 +6845,7 @@ case "$doublesize" in
- #ifdef I_STDLIB
- #include <stdlib.h>
- #endif
-+#include <stdio.h>
- int main()
- {
-     printf("%d\n", (int)sizeof(double));
-@@ -12606,7 +12608,7 @@ case "$dlsrc" in
- dl_dlopen.xs)
- 	echo "Checking whether your dlsym() needs a leading underscore ..." >&4
- 	$cat >dyna.c <<'EOM'
--fred () { }
-+void fred (void) { }
- EOM
- 
- $cat >fred.c<<EOM
-@@ -12625,7 +12627,7 @@ $cat >fred.c<<EOM
- #include <link.h>
- #endif
- 
--extern int fred() ;
-+extern void fred(void) ;
- 
- int main()
- {
-@@ -13659,6 +13661,7 @@ $cat >try.c <<EOP
- #ifdef I_STDLIB
- #include <stdlib.h>
- #endif
-+#include <string.h>
- #define FILE_ptr(fp)	$stdio_ptr
- #define FILE_cnt(fp)	$stdio_cnt
- int main() {
-@@ -16166,6 +16169,7 @@ echo "Checking to see if your libm supports _LIB_VERSION..." >&4
- $cat >try.c <<EOCP
- #include <unistd.h>
- #include <math.h>
-+#include <stdio.h>
- int main (int argc, char *argv[])
- {
-     printf ("%d\n", _LIB_VERSION);
-@@ -22063,13 +22067,15 @@ pager="$ans"
- : see if ar generates random libraries by itself
- echo " "
- echo "Checking how to generate random libraries on your machine..." >&4
--echo 'int bar1() { return bar2(); }' > bar1.c
-+echo 'extern int bar2(); int bar1() { return bar2(); }' > bar1.c
- echo 'int bar2() { return 2; }' > bar2.c
- $cat > foo.c <<EOP
- #$i_stdlib I_STDLIB
- #ifdef I_STDLIB
- #include <stdlib.h>
- #endif
-+#include <stdio.h>
-+extern int bar1();
- int main() { printf("%d\n", bar1()); exit(0); }
- EOP
- $cc $ccflags -c bar1.c >/dev/null 2>&1
-@@ -22295,7 +22301,7 @@ EOM
- 			for nfd in 'int' 'size_t' 'unsigned long' 'unsigned' ; do
- 				for tmo in 'struct timeval *' 'const struct timeval *'; do
- 					case "$val" in
--					'')	try="$extern_C select _(($nfd, $xxx, $xxx, $xxx, $tmo));"
-+					'')	try="$extern_C int select _(($nfd, $xxx, $xxx, $xxx, $tmo));"
- 						if ./protochk "$try" $hdrs; then
- 							echo "Your system accepts $xxx."
- 							val="$xxx"

sources

@@ -1 +1 @@
-SHA512 (perl-5.36.0.tar.xz) = 6dd6ac2a77566c173c5ab9c238cf555f2c3e592e89abb5600bc23ce1cbd0c349e0233f6417cbbf1f6d0aefc6a734ba491285af0d3dc68a605b658b65c89f1dab
+SHA512 (perl-5.38.0.tar.xz) = 71beff7f6daa22a967972f5805daf2d4ff837a17e5ab808780f815d5914a67acf4f2e92acac0f2d8b24bdde4ceec0c2f7cb3029b5eadeeb30191f757e1bf0f9d