import perl-5.40.0-510.el10

2 months ago · a25207f91a
commit a25207f91a
24 changed files with 13484 additions and 0 deletions
--- a/.gitignore
+++ b/.gitignore
@ -0,0 +1 @@
 SOURCES/perl-5.40.0.tar.xz
--- a/.perl.metadata
+++ b/.perl.metadata
@ -0,0 +1 @@
 4a3af1f62afc611aa1552adc6c7ec389e9723bce SOURCES/perl-5.40.0.tar.xz
--- a/SOURCES/Pod-Html-license-clarification
+++ b/SOURCES/Pod-Html-license-clarification
@ -0,0 +1,41 @@
 Date: Sun, 15 Mar 2015 21:22:10 -0600
 Subject: Re: Pod::Html license
 From: Tom Christiansen <tchrist53147@gmail.com>
 To: Petr Šabata <contyk@redhat.com>
 Cc: Tom Christiansen <tchrist@perl.com>, marcgreen@cpan.org,
 jplesnik@redhat.com
 MIME-Version: 1.0
 Content-Transfer-Encoding: 8bit
 Content-Type: text/plain; charset=utf-8
 Yes, it was supposed to be licensed just like the rest of Perl.
 Sent from my Sprint phone
 Petr Šabata <contyk@redhat.com> wrote:
 >Marc, Tom,
 >
 >I'm reviewing licensing of our perl package in Fedora and 
 >noticed Pod::HTML and its pod2html script are licensed under
 >the Artistic license (only).
 >
 >This is an issue for us as this license isn't considered free by
 >FSF [0].  Unless the license of this core component changes, we
 >will have to drop it from the tarball and remove support for it
 >from all the modules we ship that use it, such as Module::Build
 >or Module::Install.
 >
 >What I've seen in the past is authors originally claiming their
 >module was released under Artistic while what they actually meant
 >was the common `the same as perl itself', i.e. `GPL+/Aristic' [1],
 >an FSF free license.  Is it possible this is also the case
 >of Pod::Html?
 >
 >Thanks,
 >Petr
 >
 >(also CC'ing Jitka, the primary package maintainer in Fedora)
 >
 >[0] https://www.gnu.org/licenses/license-list.html#ArtisticLicense
 >[1] https://www.gnu.org/licenses/license-list.html#PerlLicense
--- a/SOURCES/gendep.macros
+++ b/SOURCES/gendep.macros
--- a/SOURCES/macros.perl
+++ b/SOURCES/macros.perl
@ -0,0 +1,158 @@
 # Sensible Perl-specific RPM build macros.
 #
 # Note that these depend on the generic filtering system being in place in
 # rpm core; but won't cause a build to fail if they're not present.
 #
 # Chris Weyl <cweyl@alumni.drew.edu> 2009
 # Marcela Mašláňová <mmaslano@redhat.com> 2011
 # This macro unsets several common vars used to control how Makefile.PL (et
 # al) build and install packages.  We also set a couple to help some of the
 # common systems be less interactive.  This was blatantly stolen from
 # cpanminus, and helps building rpms locally when one makes extensive use of
 # local::lib, etc.
 #
 # Usage, in %build, before "%{__perl} Makefile.PL ..."
 #
 #   %{?perl_ext_env_unset}
 %perl_ext_env_unset %{expand:
 unset PERL_MM_OPT MODULEBUILDRC PERL5INC
 export PERL_AUTOINSTALL="--defaultdeps"
 export PERL_MM_USE_DEFAULT=1
 }
 #############################################################################
 # Perl specific macros, no longer part of rpm >= 4.15
 %perl_vendorarch %(eval "`%{__perl} -V:installvendorarch`"; echo $installvendorarch)
 %perl_vendorlib  %(eval "`%{__perl} -V:installvendorlib`"; echo $installvendorlib)
 %perl_archlib    %(eval "`%{__perl} -V:installarchlib`"; echo $installarchlib)
 %perl_privlib    %(eval "`%{__perl} -V:installprivlib`"; echo $installprivlib)
 #############################################################################
 # Filtering macro incantations
 # keep track of what "revision" of the filtering we're at.  Each time we
 # change the filter we should increment this.
 %perl_default_filter_revision 3
 # By default, for perl packages we want to filter all files in _docdir from 
 # req/prov scanning.
 # Filtering out any provides caused by private libs in vendorarch/archlib
 # (vendor/core) is done by rpmbuild since Fedora 20
 # <https://fedorahosted.org/fpc/ticket/353>.
 #
 # Note that this must be invoked in the spec file, preferably as 
 # "%{?perl_default_filter}", before any %description block.
 %perl_default_filter %{expand: \
 %global __provides_exclude_from %{?__provides_exclude_from:%__provides_exclude_from|}^%{_docdir}
 %global __requires_exclude_from %{?__requires_exclude_from:%__requires_exclude_from|}^%{_docdir}
 %global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\\\(VMS|^perl\\\\(Win32|^perl\\\\(DB\\\\)|^perl\\\\(UNIVERSAL\\\\)
 %global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\\\(VMS|^perl\\\\(Win32
 }
 #############################################################################
 # Macros to assist with generating a "-tests" subpackage in a semi-automatic
 # manner.
 #
 # The following macros are still in a highly experimental stage and users
 # should be aware that the interface and behaviour may change. 
 #
 # PLEASE, PLEASE CONDITIONALIZE THESE MACROS IF YOU USE THEM.
 #
 # See http://gist.github.com/284409
 # These macros should be invoked as above, right before the first %description
 # section, and conditionalized.  e.g., for the common case where all our tests
 # are located under t/, the correct usage is:
 #
 #   %{?perl_default_subpackage_tests}
 #
 # If custom files/directories need to be specified, this can be done as such:
 #
 #   %{?perl_subpackage_tests:%perl_subpackage_tests t/ one/ three.sql}
 #
 # etc, etc.
 %perl_version   %(eval "`%{__perl} -V:version`"; echo $version)
 %perl_testdir   %{_libexecdir}/perl5-tests
 %cpan_dist_name %(eval echo %{name} | %{__sed} -e 's/^perl-//')
 # easily mark something as required by -tests and BR to the main package
 %tests_req() %{expand:\
 BuildRequires: %*\
 %%tests_subpackage_requires %*\
 }
 # fixup (and create if needed) the shbang lines in tests, so they work and
 # rpmlint doesn't (correctly) have a fit
 %fix_shbang_line() \
 TMPHEAD=`mktemp`\
 TMPBODY=`mktemp`\
 for file in %* ; do \
    head -1 $file > $TMPHEAD\
    tail -n +2 $file > $TMPBODY\
    %{__perl} -pi -e '$f = /^#!/ ? "" : "#!%{__perl}$/"; $_="$f$_"' $TMPHEAD\
    cat $TMPHEAD $TMPBODY > $file\
 done\
 %{__perl} -MExtUtils::MakeMaker -e "ExtUtils::MM_Unix->fixin(qw{%*})"\
 %{__rm} $TMPHEAD $TMPBODY\
 %{nil}
 # additional -tests subpackage requires, if any
 %tests_subpackage_requires() %{expand: \
 %global __tests_spkg_req %{?__tests_spkg_req} %* \
 }
 # additional -tests subpackage provides, if any
 %tests_subpackage_provides() %{expand: \
 %global __tests_spkg_prov %{?__tests_spkg_prov} %* \
 }
 #
 # Runs after the body of %check completes.
 #
 %__perl_check_pre %{expand: \
 %{?__spec_check_pre} \
 pushd %{buildsubdir} \
 %define perl_br_testdir %{buildroot}%{perl_testdir}/%{cpan_dist_name} \
 %{__mkdir_p} %{perl_br_testdir} \
 %{__tar} -cf - %{__perl_test_dirs} | ( cd %{perl_br_testdir} && %{__tar} -xf - ) \
 find . -maxdepth 1 -type f -name '*META*' -exec %{__cp} -vp {} %{perl_br_testdir} ';' \
 find %{perl_br_testdir} -type f -exec %{__chmod} -c -x {} ';' \
 T_FILES=`find %{perl_br_testdir} -type f -name '*.t'` \
 %fix_shbang_line $T_FILES \
 %{__chmod} +x $T_FILES \
 %{_fixperms} %{perl_br_testdir} \
 popd \
 }
 #
 # The actual invoked macro
 #
 %perl_subpackage_tests() %{expand: \
 %global __perl_package 1\
 %global __perl_test_dirs %* \
 %global __spec_check_pre %{expand:%{__perl_check_pre}} \
 %package tests\
 Summary: Test suite for package %{name}\
 Group: Development/Debug\
 Requires: %{name} = %{?epoch:%{epoch}:}%{version}-%{release}\
 Requires: /usr/bin/prove \
 %{?__tests_spkg_req:Requires: %__tests_spkg_req}\
 %{?__tests_spkg_prov:Provides: %__tests_spkg_prov}\
 AutoReqProv: 0 \
 %description tests\
 This package provides the test suite for package %{name}.\
 %files tests\
 %defattr(-,root,root,-)\
 %{perl_testdir}\
 }
 # shortcut sugar
 %perl_default_subpackage_tests %perl_subpackage_tests t/
--- a/SOURCES/perl-5.10.0-libresolv.patch
+++ b/SOURCES/perl-5.10.0-libresolv.patch
@ -0,0 +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
@@ -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 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.
--- a/SOURCES/perl-5.10.0-x86_64-io-test-failure.patch
+++ b/SOURCES/perl-5.10.0-x86_64-io-test-failure.patch
@ -0,0 +1,12 @@
 diff -up perl-5.10.0/t/io/fs.t.BAD perl-5.10.0/t/io/fs.t
 --- perl-5.10.0/t/io/fs.t.BAD	2008-01-30 13:36:43.000000000 -0500
 +++ perl-5.10.0/t/io/fs.t	2008-01-30 13:41:27.000000000 -0500
@@ -257,7 +257,7 @@ isnt($atime, 500000000, 'atime');
 isnt($mtime, $ut + $delta, 'mtime: utime called with two undefs');
 SKIP: {
 -    skip "no futimes", 6 unless ($Config{d_futimes} || "") eq "define";
 +    skip "no futimes", 6;
     note("check futimes");
     open(my $fh, "<", 'b');
     $foo = (utime $ut,$ut + $delta, $fh);
--- a/SOURCES/perl-5.14.1-offtest.patch
+++ b/SOURCES/perl-5.14.1-offtest.patch
@ -0,0 +1,21 @@
 diff -up perl-5.33.9/cpan/File-Temp/t/fork.t.orig perl-5.33.9/cpan/File-Temp/t/fork.t
 --- perl-5.33.9/cpan/File-Temp/t/fork.t.orig	2021-04-22 16:24:11.736220616 +0200
 +++ perl-5.33.9/cpan/File-Temp/t/fork.t	2021-04-22 16:26:31.466593123 +0200
@@ -12,16 +12,8 @@ BEGIN {
      $Config::Config{useithreads} and
      $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
     );
 -  if ( $can_fork && !(($^O eq 'MSWin32') && $Devel::Cover::VERSION) ) {
 -    print "1..8\n";
 -  } else {
 -    if ( ($^O eq 'MSWin32') && $Devel::Cover::VERSION ) {
 -        print "1..0 # Skip Devel::Cover coverage testing is incompatible with fork under 'MSWin32'\n";
 -    } else {
 -        print "1..0 # Skip No fork available\n";
 -    }
 +    print "1..0 # Skip Koji doesn't work with Perl fork tests\n";
     exit;
 -  }
 }
 use File::Temp;
--- a/SOURCES/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
+++ b/SOURCES/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
@ -0,0 +1,65 @@
 From b598ba3f2d4b8347c6621cff022b8e2329b79ea5 Mon Sep 17 00:00:00 2001
 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
 Date: Wed, 3 Jul 2013 11:01:02 +0200
 Subject: [PATCH] Link XS modules to libperl.so with EU::CBuilder on Linux
 MIME-Version: 1.0
 Content-Type: text/plain; charset=UTF-8
 Content-Transfer-Encoding: 8bit
 <https://bugzilla.redhat.com/show_bug.cgi?id=960048>
 <http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=327585#50>
 Signed-off-by: Petr Písař <ppisar@redhat.com>
 ---
 MANIFEST                                           |  1 +
 .../lib/ExtUtils/CBuilder/Platform/linux.pm        | 26 ++++++++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm
 diff --git a/MANIFEST b/MANIFEST
 index 397252a..d7c519b 100644
 --- a/MANIFEST
 +++ b/MANIFEST
@@ -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
 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
 --- /dev/null
 +++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm
@@ -0,0 +1,26 @@
 +package ExtUtils::CBuilder::Platform::linux;
 +
 +use strict;
 +use ExtUtils::CBuilder::Platform::Unix;
 +use File::Spec;
 +
 +use vars qw($VERSION @ISA);
 +$VERSION = '0.280206';
 +@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
 +
 +sub link {
 +  my ($self, %args) = @_;
 +  my $cf = $self->{config};
 +
 +  # Link XS modules to libperl.so explicitly because multiple
 +  # dlopen(, RTLD_LOCAL) hides libperl symbols from XS module.
 +  local $cf->{lddlflags} = $cf->{lddlflags};
 +  if ($ENV{PERL_CORE}) {
 +    $cf->{lddlflags} .= ' -L' . $self->perl_inc();
 +  }
 +  $cf->{lddlflags} .= ' -lperl';
 +
 +  return $self->SUPER::link(%args);
 +}
 +
 +1;
 -- 
 1.8.1.4
--- a/SOURCES/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-MM-on-Linux.patch
+++ b/SOURCES/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-MM-on-Linux.patch
@ -0,0 +1,52 @@
 From fc1f8ac36c34c35bad84fb7b99a26ab83c9ba075 Mon Sep 17 00:00:00 2001
 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
 Date: Wed, 3 Jul 2013 12:59:09 +0200
 Subject: [PATCH] Link XS modules to libperl.so with EU::MM on Linux
 MIME-Version: 1.0
 Content-Type: text/plain; charset=UTF-8
 Content-Transfer-Encoding: 8bit
 <https://bugzilla.redhat.com/show_bug.cgi?id=960048>
 <http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=327585#50>
 Signed-off-by: Petr Písař <ppisar@redhat.com>
 ---
 cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)
 diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
 index a8b172f..a3fbce2 100644
 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
 +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
@@ -30,6 +30,7 @@ BEGIN {
     $Is{IRIX}    = $^O eq 'irix';
     $Is{NetBSD}  = $^O eq 'netbsd';
     $Is{Interix} = $^O eq 'interix';
 +    $Is{Linux}   = $^O eq 'linux';
     $Is{SunOS4}  = $^O eq 'sunos';
     $Is{Solaris} = $^O eq 'solaris';
     $Is{SunOS}   = $Is{SunOS4} || $Is{Solaris};
@@ -1028,7 +1029,7 @@ sub xs_make_dynamic_lib {
     push(@m,"	\$(RM_F) \$\@\n");
     my $libs = '$(LDLOADLIBS)';
 -    if (($Is{NetBSD} || $Is{Interix} || $Is{Android}) && $Config{'useshrplib'} eq 'true') {
 +    if (($Is{Linux} || $Is{NetBSD} || $Is{Interix} || $Is{Android}) && $Config{'useshrplib'} eq 'true') {
         # Use nothing on static perl platforms, and to the flags needed
         # to link against the shared libperl library on shared perl
         # platforms.  We peek at lddlflags to see if we need -Wl,-R
@@ -1041,6 +1042,11 @@ sub xs_make_dynamic_lib {
             # The Android linker will not recognize symbols from
             # libperl unless the module explicitly depends on it.
             $libs .= ' "-L$(PERL_INC)" -lperl';
 +        } else {
 +            if ($ENV{PERL_CORE}) {
 +                $libs .= ' "-L$(PERL_INC)"';
 +            }
 +            $libs .= ' -lperl';
         }
     }
 -- 
 1.8.1.4
--- a/SOURCES/perl-5.16.3-create_libperl_soname.patch
+++ b/SOURCES/perl-5.16.3-create_libperl_soname.patch
@ -0,0 +1,57 @@
 From fa2f0dd5a7767223df10149d3f16d7ed7013e16f Mon Sep 17 00:00:00 2001
 From: Torsten Veller <tove@gentoo.org>
 Date: Sat, 14 Apr 2012 13:49:18 +0200
 Subject: Set libperl soname
 Bug-Gentoo: https://bugs.gentoo.org/286840
 Patch-Name: gentoo/create_libperl_soname.diff
 ---
 Makefile.SH | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)
 diff --git a/Makefile.SH b/Makefile.SH
 index d1da0a0..7733a32 100755
 --- a/Makefile.SH
 +++ b/Makefile.SH
@@ -64,11 +64,11 @@ true)
 				${revision}.${patchlevel}.${subversion}"
 		case "$osvers" in
 	        1[5-9]*|[2-9]*)
 -			shrpldflags="$shrpldflags -install_name `pwd`/\$@ -Xlinker -headerpad_max_install_names"
 +			shrpldflags="$shrpldflags -install_name `pwd`/libperl.${revision}.${patchlevel}.dylib -Xlinker -headerpad_max_install_names"
 			exeldflags="-Xlinker -headerpad_max_install_names"
 			;;
 		*)
 -			shrpldflags="$shrpldflags -install_name \$(shrpdir)/\$@"
 +			shrpldflags="$shrpldflags -install_name \$(shrpdir)/libperl.${revision}.${patchlevel}.dylib"
 			;;
 		esac
 		;;
@@ -78,13 +78,15 @@ true)
 		;;
 	sunos*)
 		linklibperl="-lperl"
 +		shrpldflags="$shrpldflags -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
 		;;
 	netbsd*|freebsd[234]*|openbsd*|dragonfly*|bitrig*)
 		linklibperl="-L. -lperl"
 +		shrpldflags="$shrpldflags -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
 		;;
 	interix*)
 		linklibperl="-L. -lperl"
 -		shrpldflags="$shrpldflags -Wl,--image-base,0x57000000"
 +		shrpldflags="$shrpldflags -Wl,--image-base,0x57000000 -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
 		;;
 	aix*)
 		case "$cc" in
@@ -127,6 +129,9 @@ true)
 	           ;;
             esac
             ;;
 +	linux*)
 +	    shrpldflags="$shrpldflags -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
 +	    ;;
 	esac
 	case "$ldlibpthname" in
 	'') ;;
--- a/SOURCES/perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch
+++ b/SOURCES/perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch
@ -0,0 +1,61 @@
 From 9644657c4 10326749fd321d9c24944ec25afad2f Mon Sep 17 00:00:00 2001
 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
 Date: Thu, 20 Jun 2013 15:22:53 +0200
 Subject: [PATCH] Install libperl.so to shrpdir on Linux
 MIME-Version: 1.0
 Content-Type: text/plain; charset=UTF-8
 Content-Transfer-Encoding: 8bit
 Signed-off-by: Petr Písař <ppisar@redhat.com>
 ---
 Configure   | 7 ++++---
 Makefile.SH | 2 +-
 2 files changed, 5 insertions(+), 4 deletions(-)
 diff --git a/Configure b/Configure
 index 2f30261..825496e 100755
 --- a/Configure
 +++ b/Configure
@@ -8762,7 +8762,9 @@ esac
 # Detect old use of shrpdir via undocumented Configure -Dshrpdir
 case "$shrpdir" in
 -'') ;;
 +'') 
 +shrpdir=$archlibexp/CORE
 +;;
 *)	$cat >&4 <<EOM
 WARNING:  Use of the shrpdir variable for the installation location of
 the shared $libperl is not supported.  It was never documented and
@@ -8792,7 +8794,6 @@ esac
 # Add $xxx to ccdlflags.
 # If we can't figure out a command-line option, use $shrpenv to
 # set env LD_RUN_PATH.  The main perl makefile uses this.
 -shrpdir=$archlibexp/CORE
 xxx=''
 tmp_shrpenv=''
 if "$useshrplib"; then
@@ -8807,7 +8808,7 @@ if "$useshrplib"; then
 		xxx="-Wl,-R$shrpdir"
 		;;
 	bsdos|linux|irix*|dec_osf|gnu*|haiku)
 -		xxx="-Wl,-rpath,$shrpdir"
 +		# We want standard path
 		;;
 	hpux*)
 		# hpux doesn't like the default, either.
 diff --git a/Makefile.SH b/Makefile.SH
 index 7733a32..a481183 100755
 --- a/Makefile.SH
 +++ b/Makefile.SH
@@ -288,7 +288,7 @@ ranlib = $ranlib
 # installman commandline.
 bin = $installbin
 scriptdir = $scriptdir
 -shrpdir = $archlibexp/CORE
 +shrpdir = $shrpdir
 privlib = $installprivlib
 man1dir = $man1dir
 man1ext = $man1ext
 -- 
 1.8.1.4
--- a/SOURCES/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch
+++ b/SOURCES/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch
@ -0,0 +1,110 @@
 From 9575301256f67116eccdbb99b38fc804ba3dcf53 Mon Sep 17 00:00:00 2001
 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
 Date: Mon, 18 Apr 2016 16:24:03 +0200
 Subject: [PATCH] Provide ExtUtils::MM methods as standalone
 ExtUtils::MM::Utils
 MIME-Version: 1.0
 Content-Type: text/plain; charset=UTF-8
 Content-Transfer-Encoding: 8bit
 If you cannot afford depending on ExtUtils::MakeMaker, you can
 depend on ExtUtils::MM::Utils instead.
 <https://bugzilla.redhat.com/show_bug.cgi?id=1129443>
 Signed-off-by: Petr Písař <ppisar@redhat.com>
 ---
 MANIFEST                                         |  1 +
 cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm | 68 ++++++++++++++++++++++++
 2 files changed, 69 insertions(+)
 create mode 100644 cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm
 diff --git a/MANIFEST b/MANIFEST
 index 6af238c..d4f0c56 100644
 --- a/MANIFEST
 +++ b/MANIFEST
@@ -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
 --- /dev/null
 +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm
@@ -0,0 +1,68 @@
 +package ExtUtils::MM::Utils;
 +
 +require 5.006;
 +
 +use strict;
 +use vars qw($VERSION);
 +$VERSION = '7.11_06';
 +$VERSION = eval $VERSION;  ## no critic [BuiltinFunctions::ProhibitStringyEval]
 +
 +=head1 NAME
 +
 +ExtUtils::MM::Utils - ExtUtils::MM methods without dependency on ExtUtils::MakeMaker
 +
 +=head1 SYNOPSIS
 +
 +    require ExtUtils::MM::Utils;
 +    MM->maybe_command($file);
 +
 +=head1 DESCRIPTION
 +
 +This is a collection of L<ExtUtils::MM> subroutines that are used by many
 +other modules but that do not need full-featured L<ExtUtils::MakeMaker>. The
 +issue with L<ExtUtils::MakeMaker> is it pulls in Perl header files and that is
 +an overkill for small subroutines.
 +
 +An example is the L<IPC::Cmd> that caused installing GCC just because of
 +three-line I<maybe_command()> from L<ExtUtils::MM_Unix>.
 +
 +The intentions is to use L<ExtUtils::MM::Utils> instead of
 +L<ExtUtils::MakeMaker> for these trivial methods. You can still call them via
 +L<MM> class name.
 +
 +=head1 METHODS
 +
 +=over 4
 +
 +=item maybe_command
 +
 +Returns true, if the argument is likely to be a command.
 +
 +=cut
 +
 +if (!exists $INC{'ExtUtils/MM.pm'}) {
 +    *MM::maybe_command = *ExtUtils::MM::maybe_command = \&maybe_command;
 +}
 +
 +sub maybe_command {
 +    my($self,$file) = @_;
 +    return $file if -x $file && ! -d $file;
 +    return;
 +}
 +
 +1;
 +
 +=back
 +
 +=head1 BUGS
 +
 +These methods are copied from L<ExtUtils::MM_Unix>. Other operating systems
 +are not supported yet. The reason is this
 +L<a hack for Linux
 +distributions|https://bugzilla.redhat.com/show_bug.cgi?id=1129443>.
 +
 +=head1 SEE ALSO
 +
 +L<ExtUtils::MakeMaker>, L<ExtUtils::MM>
 +
 +=cut
 -- 
 2.5.5
--- a/SOURCES/perl-5.22.1-Replace-EU-MM-dependnecy-with-EU-MM-Utils-in-IPC-Cmd.patch
+++ b/SOURCES/perl-5.22.1-Replace-EU-MM-dependnecy-with-EU-MM-Utils-in-IPC-Cmd.patch
@ -0,0 +1,34 @@
 From 216ddd39adb0043930acad70ff242c30a1b0c6cf Mon Sep 17 00:00:00 2001
 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
 Date: Mon, 18 Apr 2016 16:39:32 +0200
 Subject: [PATCH] Replace EU::MM dependnecy with EU::MM::Utils in IPC::Cmd
 MIME-Version: 1.0
 Content-Type: text/plain; charset=UTF-8
 Content-Transfer-Encoding: 8bit
 This allows to free from a run-time dependency on fat
 ExtUtils::MakeMaker.
 <https://bugzilla.redhat.com/show_bug.cgi?id=1129443>
 Signed-off-by: Petr Písař <ppisar@redhat.com>
 ---
 cpan/IPC-Cmd/lib/IPC/Cmd.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
 index 6a82bdf..b6cd7ef 100644
 --- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm
 +++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
@@ -232,7 +232,7 @@ sub can_run {
     }
     require File::Spec;
 -    require ExtUtils::MakeMaker;
 +    require ExtUtils::MM::Utils;
     my @possibles;
 -- 
 2.5.5
--- a/SOURCES/perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch
+++ b/SOURCES/perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch
@ -0,0 +1,61 @@
 From f6bc8fb3d26892ba1a84ba2df76beedd51998dd2 Mon Sep 17 00:00:00 2001
 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
 Date: Mon, 29 Jan 2018 16:34:17 +0100
 Subject: [PATCH] hints/linux: Add -lphtread to lddlflags
 MIME-Version: 1.0
 Content-Type: text/plain; charset=UTF-8
 Content-Transfer-Encoding: 8bit
 Passing -z defs to linker flags causes perl to fail to build if threads are
 enabled:
 gcc  -shared -Wl,-z,relro -Wl,-z,defs -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -L/usr/local/lib -fstack-protector-strong Bzip2.o  -o ../../lib/auto/Compress/Raw/Bzip2/Bzip2.so  \
   -L/usr/lib64 -lbz2 "-L../.." -lperl   \
 Bzip2.o: In function `deRef':
 /builddir/build/BUILD/perl-5.26.1/cpan/Compress-Raw-Bzip2/Bzip2.xs:256: undefined reference to `pthread_getspecific'
 The reason is Bzip2.xs calls dTHX macro included from thread.h via perl.h that
 expands to pthread_getspecific() function call that is defined in pthread
 library. But the pthread library is not explicitly linked to Bzip.so (see the
 gcc command). This is exactly what -z defs linker flag enforces.
 Underlinking ELFs can be dangerous because in case of versioned
 symbols it can cause run-time binding to an improper version symbol or
 even to an symbold from different library.
 This patch fixes hints for Linux by adding -lpthreads to lddlflags. It
 also adds -shared there because Configure.sh adds it only hints return
 lddlflags empty.
 <https://lists.fedoraproject.org/archives/list/devel@lists.fedoraproject.org/message/3RHZEHLRUHJFF2XGHI5RB6YPDNLDR4HG/>
 Signed-off-by: Petr Písař <ppisar@redhat.com>
 ---
 hints/linux.sh | 4 ++++
 1 file changed, 4 insertions(+)
 diff --git a/hints/linux.sh b/hints/linux.sh
 index 3f38ea07f1..9ec3bc02ef 100644
 --- a/hints/linux.sh
 +++ b/hints/linux.sh
@@ -353,12 +353,16 @@ if [ -f /etc/synoinfo.conf -a -d /usr/syno ]; then
     echo "$libswanted" >&4
 fi
 +# Flags needed to produce shared libraries.
 +lddlflags='-shared'
 +
 # This script UU/usethreads.cbu will get 'called-back' by Configure
 # after it has prompted the user for whether to use threads.
 cat > UU/usethreads.cbu <<'EOCBU'
 case "$usethreads" in
 $define|true|[yY]*)
         ccflags="-D_REENTRANT -D_GNU_SOURCE $ccflags"
 +        lddlflags="-lpthread $lddlflags"
         if echo $libswanted | grep -v pthread >/dev/null
         then
             set `echo X "$libswanted "| sed -e 's/ c / pthread c /'`
 -- 
 2.13.6
--- a/SOURCES/perl-5.28.0-Pass-CFLAGS-to-dtrace.patch
+++ b/SOURCES/perl-5.28.0-Pass-CFLAGS-to-dtrace.patch
@ -0,0 +1,63 @@
 Subject: [PATCH] Pass CFLAGS to dtrace
 Signed-off-by: Petr PĂsaĹ <ppisar@redhat.com>
 ---
 Makefile.SH | 8 +++++---
 cflags.SH   | 5 ++++-
 2 files changed, 9 insertions(+), 4 deletions(-)
 diff --git a/Makefile.SH b/Makefile.SH
 index 5fc6d1c..e89ad70 100755
 --- a/Makefile.SH
 +++ b/Makefile.SH
@@ -462,6 +462,8 @@ CCCMD    = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $@
 CCCMDSRC = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $<
 +DTRACEFLAGS = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $@
 +
 CONFIGPM_FROM_CONFIG_SH = lib/Config.pm lib/Config_heavy.pl
 CONFIGPM = $(CONFIGPM_FROM_CONFIG_SH) lib/Config_git.pl
@@ -895,19 +897,19 @@ $(DTRACE_MINI_O): perldtrace.d $(miniperl_objs_nodt)
 	-rm -rf mpdtrace
 	mkdir mpdtrace
 	cp $(miniperl_objs_nodt) mpdtrace/
 -	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_MINI_O) $(miniperl_dtrace_objs)
 +	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_MINI_O) $(miniperl_dtrace_objs)
 $(DTRACE_PERLLIB_O): perldtrace.d $(perllib_objs_nodt)
 	-rm -rf libpdtrace
 	mkdir libpdtrace
 	cp $(perllib_objs_nodt) libpdtrace/
 -	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_PERLLIB_O) $(perllib_dtrace_objs)
 +	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_PERLLIB_O) $(perllib_dtrace_objs)
 $(DTRACE_MAIN_O): perldtrace.d perlmain$(OBJ_EXT)
 	-rm -rf maindtrace
 	mkdir maindtrace
 	cp perlmain$(OBJ_EXT) maindtrace/
 -	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_MAIN_O) $(perlmain_dtrace_objs) ||	      \
 +	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_MAIN_O) $(perlmain_dtrace_objs) ||	      \
 	  ( $(ECHO) "No probes in perlmain$(OBJ_EXT), generating a dummy $(DTRACE_MAIN_O)" && \
 	    $(ECHO) >dtrace_main.c &&							      \
 	    `$(CCCMD)` $(PLDLFLAGS) dtrace_main.c &&					      \
 diff --git a/cflags.SH b/cflags.SH
 index 3af1e97..b845127 100755
 --- a/cflags.SH
 +++ b/cflags.SH
@@ -519,7 +519,10 @@ for file do
     toke) optimize=-O0 ;;
     esac
 -    echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra"
 +    case "$file" in
 +    dtrace_*) echo "$ccflags $stdflags $optimize $warn $extra";;
 +    *) echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra";;
 +    esac
     . $TOP/config.sh
 -- 
 2.17.1
--- a/SOURCES/perl-5.34.0-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch
+++ b/SOURCES/perl-5.34.0-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch
@ -0,0 +1,234 @@
 From 8067179e65a28d91f00df7d36778229a07514471 Mon Sep 17 00:00:00 2001
 From: Jitka Plesnikova <jplesnik@redhat.com>
 Date: Thu, 29 Apr 2021 12:21:18 +0200
 Subject: [PATCH] Destroy {GDBM,NDBM,ODBM,SDBM}_File objects only from original
 This patch fixes a crash when destroing a hash tied to a *_File
 database after spawning a thread:
 use Fcntl;
 use SDBM_File;
 use threads;
 tie(my %dbtest, 'SDBM_File', "test.db", O_RDWR|O_CREAT, 0666);
 threads->new(sub {})->join;
 This crashed or paniced depending on how perl was configured.
 Closes RT#61912.
 Updated original ppisar's patch for perl 5.18.2
 ---
 ext/GDBM_File/GDBM_File.xs | 20 ++++++++++++--------
 ext/NDBM_File/NDBM_File.xs | 16 ++++++++++------
 ext/ODBM_File/ODBM_File.xs | 18 +++++++++++-------
 ext/SDBM_File/SDBM_File.xs |  4 +++-
 t/lib/dbmt_common.pl       | 35 +++++++++++++++++++++++++++++++++++
 5 files changed, 71 insertions(+), 22 deletions(-)
 diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
 index cd0bb6f..0c395ac 100644
 --- a/ext/GDBM_File/GDBM_File.xs
 +++ b/ext/GDBM_File/GDBM_File.xs
@@ -13,6 +13,7 @@
 #define store_value 3
 typedef struct {
 +	tTHX    owner;
 	GDBM_FILE 	dbp ;
 	SV *    filter[4];
 	int     filtering ;
@@ -276,6 +277,7 @@ gdbm_TIEHASH(dbtype, name, read_write, mode)
 	}
 	if (dbp) {
 	    RETVAL = (GDBM_File)safecalloc(1, sizeof(GDBM_File_type));
 +	    RETVAL->owner = aTHX;
 	    RETVAL->dbp = dbp;
 	} else {
 	    RETVAL = NULL;
@@ -289,15 +291,17 @@ gdbm_DESTROY(db)
     PREINIT:
 	int i = store_value;
     CODE:
 -        if (gdbm_file_close(db)) {
 -            croak("gdbm_close: %s; %s", gdbm_strerror(gdbm_errno),
 -                  strerror(errno));
 +        if (db && db->owner == aTHX) {
 +            if (gdbm_file_close(db)) {
 +                croak("gdbm_close: %s; %s", gdbm_strerror(gdbm_errno),
 +                      strerror(errno));
 +	    }
 +	    do {
 +	        if (db->filter[i])
 +		    SvREFCNT_dec(db->filter[i]);
 +	    } while (i-- > 0);
 +	    safefree(db);
 	}
 -	do {
 -	    if (db->filter[i])
 -		SvREFCNT_dec(db->filter[i]);
 -	} while (i-- > 0);
 -	safefree(db);
 void
 gdbm_UNTIE(db, count)
 diff --git a/ext/NDBM_File/NDBM_File.xs b/ext/NDBM_File/NDBM_File.xs
 index eed671a..651fe0f 100644
 --- a/ext/NDBM_File/NDBM_File.xs
 +++ b/ext/NDBM_File/NDBM_File.xs
@@ -33,6 +33,7 @@ END_EXTERN_C
 #define store_value 3
 typedef struct {
 +	tTHX    owner;
 	DBM * 	dbp ;
 	SV *    filter[4];
 	int     filtering ;
@@ -71,6 +72,7 @@ ndbm_TIEHASH(dbtype, filename, flags, mode)
 	    RETVAL = NULL ;
 	    if ((dbp =  dbm_open(filename, flags, mode))) {
 	        RETVAL = (NDBM_File)safecalloc(1, sizeof(NDBM_File_type));
 +		RETVAL->owner = aTHX;
 		RETVAL->dbp = dbp ;
 	    }
@@ -84,12 +86,14 @@ ndbm_DESTROY(db)
 	PREINIT:
 	int i = store_value;
 	CODE:
 -	dbm_close(db->dbp);
 -	do {
 -	    if (db->filter[i])
 -		SvREFCNT_dec(db->filter[i]);
 -	} while (i-- > 0);
 -	safefree(db);
 +	if (db && db->owner == aTHX) {
 +	    dbm_close(db->dbp);
 +	    do {
 +	        if (db->filter[i])
 +		    SvREFCNT_dec(db->filter[i]);
 +	    } while (i-- > 0);
 +	    safefree(db);
 +	}
 #define ndbm_FETCH(db,key)			dbm_fetch(db->dbp,key)
 datum_value
 diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs
 index 38e6dbf..4b15a42 100644
 --- a/ext/ODBM_File/ODBM_File.xs
 +++ b/ext/ODBM_File/ODBM_File.xs
@@ -49,6 +49,7 @@ datum	nextkey(datum key);
 #define store_value 3
 typedef struct {
 +	tTHX    owner;
 	void * 	dbp ;
 	SV *    filter[4];
 	int     filtering ;
@@ -137,6 +138,7 @@ odbm_TIEHASH(dbtype, filename, flags, mode)
 	    }
 	    dbp = (void*)(dbminit(filename) >= 0 ? &dbmrefcnt : 0);
 	    RETVAL = (ODBM_File)safecalloc(1, sizeof(ODBM_File_type));
 +	    RETVAL->owner = aTHX;
 	    RETVAL->dbp = dbp ;
 	}
 	OUTPUT:
@@ -149,13 +151,15 @@ DESTROY(db)
 	dMY_CXT;
 	int i = store_value;
 	CODE:
 -	dbmrefcnt--;
 -	dbmclose();
 -	do {
 -	    if (db->filter[i])
 -		SvREFCNT_dec(db->filter[i]);
 -	} while (i-- > 0);
 -	safefree(db);
 +	if (db && db->owner == aTHX) {
 +	    dbmrefcnt--;
 +	    dbmclose();
 +	    do {
 +	        if (db->filter[i])
 +		    SvREFCNT_dec(db->filter[i]);
 +	    } while (i-- > 0);
 +	    safefree(db);
 +	}
 datum_value
 odbm_FETCH(db, key)
 diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs
 index 0df2855..0e2bd58 100644
 --- a/ext/SDBM_File/SDBM_File.xs
 +++ b/ext/SDBM_File/SDBM_File.xs
@@ -10,6 +10,7 @@
 #define store_value 3
 typedef struct {
 +	tTHX    owner;
 	DBM * 	dbp ;
 	SV *    filter[4];
 	int     filtering ;
@@ -51,6 +52,7 @@ sdbm_TIEHASH(dbtype, filename, flags, mode, pagname=NULL)
 	    }
 	    if (dbp) {
 	        RETVAL = (SDBM_File)safecalloc(1, sizeof(SDBM_File_type));
 +		RETVAL->owner = aTHX;
 		RETVAL->dbp = dbp ;
 	    }
@@ -62,7 +64,7 @@ void
 sdbm_DESTROY(db)
 	SDBM_File	db
 	CODE:
 -	if (db) {
 +	if (db && db->owner == aTHX) {
 	    int i = store_value;
 	    sdbm_close(db->dbp);
 	    do {
 diff --git a/t/lib/dbmt_common.pl b/t/lib/dbmt_common.pl
 index 60c66ae..a7f81fe 100644
 --- a/t/lib/dbmt_common.pl
 +++ b/t/lib/dbmt_common.pl
@@ -510,5 +510,40 @@ unlink <Op_dbmx*>, $Dfile;
    unlink <Op1_dbmx*>;
 }
 +{
 +   # Check DBM back-ends do not destroy objects from then-spawned threads.
 +   # RT#61912.
 +   SKIP: {
 +      my $threads_count = 2;
 +      skip 'Threads are disabled', 3 + 2 * $threads_count
 +        unless $Config{usethreads};
 +      use_ok('threads');
 +
 +      my %h;
 +      unlink <Op1_dbmx*>;
 +
 +      my $db = tie %h, $DBM_Class, 'Op1_dbmx', $create, 0640;
 +      isa_ok($db, $DBM_Class);
 +
 +      for (1 .. 2) {
 +         ok(threads->create(
 +            sub {
 +               $SIG{'__WARN__'} = sub { fail(shift) }; # debugging perl panics
 +                        # report it by spurious TAP line
 +               1;
 +            }), "Thread $_ created");
 +      }
 +      for (threads->list) {
 +         is($_->join, 1, "A thread exited successfully");
 +      }
 +
 +      pass("Tied object survived exiting threads");
 +
 +      undef $db;
 +      untie %h;
 +      unlink <Op1_dbmx*>;
 +   }
 +}
 +
 done_testing();
 1;
 -- 
 2.26.3
--- a/SOURCES/perl-5.36.0-Add-definition-of-OPTIMIZE-to-.ph-files.patch
+++ b/SOURCES/perl-5.36.0-Add-definition-of-OPTIMIZE-to-.ph-files.patch
@ -0,0 +1,39 @@
 From 6d9d949fb4962e32636aee48a948081d8936d318 Mon Sep 17 00:00:00 2001
 From: Jitka Plesnikova <jplesnik@redhat.com>
 Date: Wed, 11 Jan 2023 09:12:18 +0100
 Subject: [PATCH] Add definition of OPTIMIZE to .ph files
 The fortify.h header includes a test to ensure that -O is used when
 compiling with _FORTIFY_SOURCE, and the header looks for OPTIMIZE, which
 is set by the compiler whenever -O is used.  Perl translates this test
 to the .ph file, but nothing ever sets OPTIMIZE. This causes a warning
 for anything that uses features.ph.
 _FORTIFY_SOURCE is defined in /usr/lib64/perl5/_h2ph_pre.ph which is
 generated by h2ph. It uses value of @Config{'ccsymbols', 'cppsymbols',
 'cppccsymbols'} which does not contain definition for OPTIMIZE.
 The patch updated h2ph to add OPTIMIZE if -O is used.
 ---
 utils/h2ph.PL | 5 +++++
 1 file changed, 5 insertions(+)
 diff --git a/utils/h2ph.PL b/utils/h2ph.PL
 index afa53c2..3950d11 100644
 --- a/utils/h2ph.PL
 +++ b/utils/h2ph.PL
@@ -865,6 +865,11 @@ sub _extract_cc_defines
     my $allsymbols  = join " ",
 	@Config{'ccsymbols', 'cppsymbols', 'cppccsymbols'};
 +    # If optimizing -O2 is used, add the definition
 +    if ($Config{'ccflags'} =~ /(?:\s+|^)-O([\d]+)(?:\s+|$)/) {
 +	$allsymbols .= " __OPTIMIZE__=$1";
 +    }
 +
     # Split compiler pre-definitions into 'key=value' pairs:
     while ($allsymbols =~ /([^\s]+)=((\\\s|[^\s])+)/g) {
 	$define{$1} = $2;
 -- 
 2.39.0
--- a/SOURCES/perl-5.8.0-libdir64.patch
+++ b/SOURCES/perl-5.8.0-libdir64.patch
@ -0,0 +1,47 @@
 diff -up perl-5.28.0-RC1/Configure.orig   perl-5.28.0-RC1/Configure
 --- perl-5.28.0-RC1/Configure.orig   2018-05-21 12:44:04.000000000 +0200
 +++ perl-5.28.0-RC1/Configure	2018-05-22 12:21:53.908599933 +0200
@@ -7269,8 +7269,8 @@ esac'
 : Reproduce behavior of 5.005 and earlier, maybe drop that in 5.7.
 case "$installstyle" in
 '')	case "$prefix" in
 -		*perl*) dflt='lib';;
 -		*) dflt='lib/perl5' ;;
 +		*perl*) dflt='lib64';;
 +		*) dflt='lib64/perl5' ;;
 	esac
 	;;
 *)	dflt="$installstyle" ;;
@@ -7336,8 +7336,8 @@ esac
 : /opt/perl/lib/perl5... would be redundant.
 : The default "style" setting is made in installstyle.U
 case "$installstyle" in
 -*lib/perl5*) set dflt privlib lib/$package/$version ;;
 -*)	 set dflt privlib lib/$version ;;
 +*lib64/perl5*) set dflt privlib lib64/$package/$version ;;
 +*)	 set dflt privlib lib64/$version ;;
 esac
 eval $prefixit
 $cat <<EOM
@@ -7584,8 +7584,8 @@ siteprefixexp="$ansexp"
 prog=`echo $package | $sed 's/-*[0-9.]*$//'`
 case "$sitelib" in
 '') case "$installstyle" in
 -	*lib/perl5*) dflt=$siteprefix/lib/$package/site_$prog/$version ;;
 -	*)	 dflt=$siteprefix/lib/site_$prog/$version ;;
 +	*lib64/perl5*) dflt=$siteprefix/lib64/$package/site_$prog/$version ;;
 +	*)	 dflt=$siteprefix/lib64/site_$prog/$version ;;
 	esac
 	;;
 *)	dflt="$sitelib"
@@ -8001,8 +8001,8 @@ case "$vendorprefix" in
 	'')
 		prog=`echo $package | $sed 's/-*[0-9.]*$//'`
 		case "$installstyle" in
 -		*lib/perl5*) dflt=$vendorprefix/lib/$package/vendor_$prog/$version ;;
 -		*)	     dflt=$vendorprefix/lib/vendor_$prog/$version ;;
 +		*lib64/perl5*) dflt=$vendorprefix/lib64/$package/vendor_$prog/$version ;;
 +		*)	     dflt=$vendorprefix/lib64/vendor_$prog/$version ;;
 		esac
 		;;
 	*)	dflt="$vendorlib"
--- a/SOURCES/perl-USE_MM_LD_RUN_PATH.patch
+++ b/SOURCES/perl-USE_MM_LD_RUN_PATH.patch
@ -0,0 +1,109 @@
 diff -up perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm.usem perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm
 --- perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm.usem	2011-05-08 05:10:08.000000000 +0200
 +++ perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm	2011-05-17 11:14:22.169115984 +0200
@@ -89,6 +89,11 @@ libraries.  LD_RUN_PATH is a colon separ
 in LDLOADLIBS. It is passed as an environment variable to the process
 that links the shared library.
 +Fedora extension: This generation of LD_RUN_PATH is disabled by default.
 +To use the generated LD_RUN_PATH for all links, set the USE_MM_LD_RUN_PATH
 +MakeMaker object attribute / argument, (or set the $USE_MM_LD_RUN_PATH
 +environment variable).
 +
 =head2 BSLOADLIBS
 List of those libraries that are needed but can be linked in
 diff -up perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm.usem perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm
 --- perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm.usem	2011-05-08 05:10:08.000000000 +0200
 +++ perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm	2011-05-17 13:39:26.912586030 +0200
@@ -317,7 +317,7 @@ sub full_setup {
     PERM_DIR PERM_RW PERM_RWX MAGICXS
     PL_FILES PM PM_FILTER PMLIBDIRS PMLIBPARENTDIRS POLLUTE
     PREREQ_FATAL PREREQ_PM PREREQ_PRINT PRINT_PREREQ PUREPERL_ONLY
 -    SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST VERSION VERSION_FROM XS
 +    SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST USE_MM_LD_RUN_PATH VERSION VERSION_FROM XS
     XSBUILD XSMULTI XSOPT XSPROTOARG XS_VERSION
     clean depend dist dynamic_lib linkext macro realclean tool_autosplit
@@ -501,7 +501,27 @@ sub new {
     # PRINT_PREREQ is RedHatism.
     if ("@ARGV" =~ /\bPRINT_PREREQ\b/) {
         $self->_PRINT_PREREQ;
 -   }
 +    }
 +
 +    # USE_MM_LD_RUN_PATH - another RedHatism to disable automatic RPATH generation
 +    if ( ( ! $self->{USE_MM_LD_RUN_PATH} )
 +       &&( ("@ARGV" =~ /\bUSE_MM_LD_RUN_PATH(=([01]))?\b/)
 +        ||( exists( $ENV{USE_MM_LD_RUN_PATH} )
 +           &&( $ENV{USE_MM_LD_RUN_PATH} =~ /([01])?$/ )
 +           )
 +        )
 +       )
 +    {
 +       my $v = $1;
 +       if( $v )
 +       {
 +           $v = ($v=~/=([01])$/)[0];
 +       }else
 +       {
 +           $v = 1;
 +       };
 +       $self->{USE_MM_LD_RUN_PATH}=$v;
 +    };
     print "MakeMaker (v$VERSION)\n" if $Verbose;
     if (-f "MANIFEST" && ! -f "Makefile" && ! $UNDER_CORE){
@@ -2821,6 +2841,40 @@ precedence.  A typemap in the current di
 precedence, even if it isn't listed in TYPEMAPS.  The default system
 typemap has lowest precedence.
 +=item USE_MM_LD_RUN_PATH
 +
 +boolean
 +The Fedora perl MakeMaker distribution differs from the standard
 +upstream release in that it disables use of the MakeMaker generated
 +LD_RUN_PATH by default, UNLESS this attribute is specified , or the
 +USE_MM_LD_RUN_PATH environment variable is set during the MakeMaker run.
 +
 +The upstream MakeMaker will set the ld(1) environment variable LD_RUN_PATH
 +to the concatenation of every -L ld(1) option directory in which a -l ld(1)
 +option library is found, which is used as the ld(1) -rpath option if none
 +is specified. This means that, if your application builds shared libraries
 +and your MakeMaker application links to them, that the absolute paths of the
 +libraries in the build tree will be inserted into the RPATH header of all
 +MakeMaker generated binaries, and that such binaries will be unable to link
 +to these libraries if they do not still reside in the build tree directories
 +(unlikely) or in the system library directories (/lib or /usr/lib), regardless
 +of any LD_LIBRARY_PATH setting. So if you specified -L../mylib -lmylib , and
 + your 'libmylib.so' gets installed into /some_directory_other_than_usr_lib,
 + your MakeMaker application will be unable to link to it, even if LD_LIBRARY_PATH
 +is set to include /some_directory_other_than_usr_lib, because RPATH overrides
 +LD_LIBRARY_PATH.
 +
 +So for Fedora MakeMaker builds LD_RUN_PATH is NOT generated by default for
 +every link. You can still use explicit -rpath ld options or the LD_RUN_PATH
 +environment variable during the build to generate an RPATH for the binaries.
 +
 +You can set the USE_MM_LD_RUN_PATH attribute to 1 on the MakeMaker command
 +line or in the WriteMakefile arguments to enable generation of LD_RUN_PATH
 +for every link command.
 +
 +USE_MM_LD_RUN_PATH will default to 1 (LD_RUN_PATH will be used) IF the
 +$USE_MM_LD_RUN_PATH environment variable is set during a MakeMaker run.
 +
 =item VENDORPREFIX
 Like PERLPREFIX, but only for the vendor install locations.
 diff -up perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm.usem perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
 --- perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm.usem	2011-05-08 05:10:08.000000000 +0200
 +++ perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm	2011-05-17 11:14:22.172115972 +0200
@@ -1045,7 +1045,7 @@ $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $
     }
     my $ld_run_path_shell = "";
 -    if ($self->{LD_RUN_PATH} ne "") {
 +    if (($self->{LD_RUN_PATH} ne "") && ($self->{USE_MM_LD_RUN_PATH})) {
         $ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
     }
--- a/SOURCES/perl-example.stp
+++ b/SOURCES/perl-example.stp
@ -0,0 +1,21 @@
 /*
    Example of the perl systemtap tapset shows a nested view of perl subroutine
    calls and returns across the whole system.
    To run:
        stap perl-example.stp (for all perl processes)
    For specific perl process:
        stap perl-example.stp -c COMMAND
 */
 probe perl.sub.call
 {
    printf("%s => sub: %s, filename: %s, line: %d, package: %s\n",
        thread_indent(1), sub, filename, lineno, package)
 }
 probe perl.sub.return
 {
    printf("%s <= sub: %s, filename: %s, line: %d, package: %s\n",
        thread_indent(-1), sub, filename, lineno, package)
 }
--- a/SOURCES/perl-perlbug-tag.patch
+++ b/SOURCES/perl-perlbug-tag.patch
@ -0,0 +1,21 @@
 diff -up perl-5.28.0-RC1/utils/perlbug.PL.orig perl-5.28.0-RC1/utils/perlbug.PL
 --- perl-5.28.0-RC1/utils/perlbug.PL.orig	2018-05-21 12:44:04.000000000 +0200
 +++ perl-5.28.0-RC1/utils/perlbug.PL	2018-05-22 12:17:58.584993588 +0200
@@ -288,17 +288,6 @@ sub Init {
     $ok = '';
     if ($opt{o}) {
 	if ($opt{o} eq 'k' or $opt{o} eq 'kay') {
 -	    my $age = time - $patchlevel_date;
 -	    if ($opt{o} eq 'k' and $age > 60 * 24 * 60 * 60 ) {
 -		my $date = localtime $patchlevel_date;
 -		print <<"EOF";
 -"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
 -are more than 60 days old.  This Perl version was constructed on
 -$date.  If you really want to report this, use
 -"perlbug -okay" or "perlbug -nokay".
 -EOF
 -		exit();
 -	    }
 	    # force these options
 	    unless ($opt{n}) {
 		$opt{S} = 1; # don't prompt for send
--- a/SOURCES/perl.stp
+++ b/SOURCES/perl.stp
@ -0,0 +1,71 @@
 /*
   This probe will fire when the perl script enters a subroutine.
 */
 probe perl.sub.call = process("LIBRARY_PATH").mark("sub__entry")
 {
  sub = user_string($arg1)
  filename = user_string($arg2)
  lineno = $arg3
  package = user_string($arg4)
 }
 /*
   This probe will fire when the return from a subroutine has been
   hit.
 */
 probe perl.sub.return = process("LIBRARY_PATH").mark("sub__return")
 {
  sub = user_string($arg1)
  filename = user_string($arg2)
  lineno = $arg3
  package = user_string($arg4)
 }
 /*
   This probe will fire when the Perl interperter changes state.
 */
 probe perl.phase.change = process("LIBRARY_PATH").mark("phase__change")
 {
  newphase = user_string($arg1)
  oldphase = user_string($arg2)
 }
 /*
   Fires when Perl has successfully loaded an individual file.
 */
 probe perl.loaded.file = process("LIBRARY_PATH").mark("loaded__file")
 {
  filename = user_string($arg1)
 }
 /*
   Fires when Perl is about to load an individual file.
 */
 probe perl.loading.file = process("LIBRARY_PATH").mark("loading__file")
 {
  filename = user_string($arg1)
 }
 /*
   Traces the execution of each opcode in the Perl runloop.
 */
 probe perl.op.entry = process("LIBRARY_PATH").mark("op__entry")
 {
  opname = user_string($arg1)
 }
--- a/SPECS/perl.spec
+++ b/SPECS/perl.spec
		`@ -0,0 +1 @@`
							`4a3af1f62afc611aa1552adc6c7ec389e9723bce SOURCES/perl-5.40.0.tar.xz`