Accepting request 1291949 from devel:languages:perl

- update to 5.42.0

OBS-URL: https://build.opensuse.org/request/show/1291949
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=142

_multibuild

@@ -0,0 +1,3 @@
+<multibuild>
+  <flavor>testsuite</flavor>
+</multibuild>

baselibs.conf

@@ -1,4 +1,4 @@
 perl
-+lib(64)?/perl5/.*-linux-thread-multi.*
+  +lib(64)?/perl5/.*-linux-thread-multi.*
 perl-base
-+lib(64)?/perl5/.*-linux-thread-multi.*
+  +lib(64)?/perl5/.*-linux-thread-multi.*

macros.perl

@@ -22,12 +22,17 @@
 %perl_installarchlib    %(perl -V:installarchlib | sed "s!.*='!!;s!'.*!!")
 %perl_prefix            %{buildroot}
 
-# Macro to encapsulate perl requires (empty for fedora and suse > 11.3)
+# Macro to encapsulate perl requires (empty for fedora)
 # we keep the complicated form even here to easy sync the other macros with
 # perl-macros package
 # 
 %perl_requires() \
-%if 0%{?suse_version} > 0 && 0%{?suse_version} < 1700 \
+%if 0%{?suse_version} > 0 \
+Requires: perl(:MODULE_COMPAT_%{perl_version}) \
+%endif
+
+%libperl_requires() \
+%if 0%{?suse_version} > 0 \
 Requires: perl = %{perl_version} \
 %endif
 
@@ -78,7 +83,7 @@ for dir in `find ${base_dir} -type d | sort`; do\
   if [ "$dir" = "${base_dir}" ]; then\
     continue\
   else\
-    el=`echo $dir | %{__awk} -F"${base_dir}" '{print $2}'`\
+    el=${dir#$base_dir}\
     all_dir=(${all_dir[@]} $el)\
   fi\
 done\
@@ -93,21 +98,24 @@ for i in ${all_dir[@]}; do\
     continue\
   else\
     if [ -d ${base_dir}/${i} ]; then\
-      RES=`find "${base_dir}/${i}" -maxdepth 1 -type f`\
-      if [ -n "$RES" ]; then\
-        fgen_dir "%{perl_vendorlib}/${i}"\
-        for file in $RES; do\
-          fgen_file "%{perl_vendorlib}/${i}/$(basename ${file})"\
-        done\
-      else\
+      if [ "%{perl_vendorlib}/${i}" != "%{perl_vendorarch}" ]; then\
         fgen_dir "%{perl_vendorlib}/${i}"\
       fi\
+      RES=`find "${base_dir}/${i}" -maxdepth 1 -type f`\
+      for file in $RES; do\
+        fgen_file "%{perl_vendorlib}/${i}/$(basename ${file})"\
+      done\
     fi\
   fi\
 done\
 # add man pages\
 # if exist :)\
 if [ -d "${RPM_BUILD_ROOT}%{_mandir}" ]; then\
+for file in `cd "${RPM_BUILD_ROOT}%{_mandir}" && find . -type f -name "*3pm*"`; do \
+   if test -e "%{_mandir}/$file" -o -e "%{_mandir}/$file.gz"; then \
+     mv ${RPM_BUILD_ROOT}%{_mandir}/$file ${RPM_BUILD_ROOT}%{_mandir}/${file/3pm/3pmc} \
+   fi \
+done \
 fgen_file "%{_mandir}/man?/*"\
 fi\
 \

perl-5.22.0_wrong_rpm_provides.diff

@@ -0,0 +1,12 @@
+--- ./lib/sigtrap.pm.orig	2019-10-24 20:18:05.000000000 +0000
++++ ./lib/sigtrap.pm	2019-11-19 13:38:25.304577027 +0000
+@@ -80,7 +80,8 @@ sub handler_die {
+ }
+ 
+ sub handler_traceback {
+-    package DB;		# To get subroutine args.
++    package DB	# line break to prevent wrong rpm provides
++    ;		# To get subroutine args.
+     my $use_print;
+     $SIG{'ABRT'} = DEFAULT;
+     kill 'ABRT', $$ if $panic++;

perl-5.38.0.diff

@@ -1,6 +1,6 @@
---- ./Configure.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./Configure	2011-06-17 09:05:57.000000000 +0000
-@@ -112,7 +112,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi
+--- Configure.orig	2023-06-02 01:12:22.000000000 +0000
++++ Configure	2023-07-19 12:31:54.415128119 +0000
+@@ -114,7 +114,7 @@
  paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
  paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
  paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin"
@@ -9,7 +9,7 @@
  paths="$paths /sbin /usr/sbin /usr/libexec"
  paths="$paths /system/gnu_library/bin"
  
-@@ -1334,7 +1334,7 @@ loclibpth="/usr/local/lib /opt/local/lib
+@@ -1480,7 +1480,7 @@
  loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
  
  : general looking path for locating libraries
@@ -18,34 +18,16 @@
  glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
  test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
  test -f /shlib/libc.so     && glibpth="/shlib $glibpth"
-@@ -2380,7 +2380,7 @@ uname
+@@ -2585,7 +2585,7 @@
  zip
  "
  pth=`echo $PATH | sed -e "s/$p_/ /g"`
--pth="$pth /lib /usr/lib"
-+pth="$pth /lib /usr/lib /lib64 /usr/lib64"
+-pth="$pth $sysroot/lib $sysroot/usr/lib"
++pth="$pth $sysroot/lib $sysroot/usr/lib $sysroot/lib64 $sysroot/usr/lib64"
  for file in $loclist; do
  	eval xxx=\$$file
  	case "$xxx" in
-@@ -11202,7 +11202,7 @@ void xxx(int n, ...)
-     va_start(args, n);
-     exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
- }
--int main() { xxx(1, "foo"); }
-+int main() { xxx(1, "foo"); return 0; }
- 
- #else /* I_VARARGS */
- 
-@@ -11214,7 +11214,7 @@ va_dcl
-     va_start(args);
-     exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
- }
--int main() { xxx("foo"); }
-+int main() { xxx("foo"); return 0; }
- 
- #endif
- 
-@@ -19153,14 +19153,20 @@ int main(int argc, char *argv[])
+@@ -20913,14 +20913,20 @@
  }
  EOCP
  	set try
@@ -66,35 +48,35 @@
  		i_db=$undef
  		case " $libs " in
  		*"-ldb "*)
-@@ -19203,7 +19209,7 @@ int main()
+@@ -20958,7 +20964,7 @@
  }
  #endif
  EOCP
 -	if $cc $ccflags -c try.c >try.out 2>&1 ; then
 +	if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then
- 		if $contains warning try.out >>/dev/null 2>&1 ; then
+ 		if $compiler_warning try.out >>/dev/null 2>&1 ; then
  			db_hashtype='int'
  		else
-@@ -19248,7 +19254,7 @@ int main()
+@@ -20998,7 +21004,7 @@
  }
  #endif
  EOCP
 -	if $cc $ccflags -c try.c  >try.out 2>&1 ; then
 +	if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then
- 		if $contains warning try.out >>/dev/null 2>&1 ; then
+ 		if $compiler_warning try.out >>/dev/null 2>&1 ; then
  			db_prefixtype='int'
  		else
-@@ -23245,7 +23251,7 @@ passcat='$passcat'
+@@ -25806,7 +25812,7 @@
  patchlevel='$patchlevel'
  path_sep='$path_sep'
  perl5='$perl5'
 -perl='$perl'
 +perl='perl'
+ perl_lc_all_category_positions_init='$perl_lc_all_category_positions_init'
+ perl_lc_all_separator='$perl_lc_all_separator'
  perl_patchlevel='$perl_patchlevel'
- perl_static_inline='$perl_static_inline'
- perladmin='$perladmin'
---- ./SuSE/SuSEconfig.perl.orig	2011-06-17 09:05:57.000000000 +0000
-+++ ./SuSE/SuSEconfig.perl	2011-06-17 09:05:57.000000000 +0000
+--- SuSE/SuSEconfig.perl.orig	2023-07-19 12:31:54.415128119 +0000
++++ SuSE/SuSEconfig.perl	2023-07-19 12:31:54.415128119 +0000
 @@ -0,0 +1,76 @@
 +#! /bin/bash
 +#
@@ -172,9 +154,9 @@
 +#
 +# end of file SuSEconfig.perl
 +#
---- ./SuSE/perllocal.SuSE.orig	2011-06-17 09:05:57.000000000 +0000
-+++ ./SuSE/perllocal.SuSE	2011-06-17 09:05:57.000000000 +0000
-@@ -0,0 +1,84 @@
+--- SuSE/perllocal.SuSE.orig	2023-07-19 12:31:54.415128119 +0000
++++ SuSE/perllocal.SuSE	2023-07-19 12:31:54.415128119 +0000
+@@ -0,0 +1,83 @@
 +#!/usr/bin/perl
 +# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany.  All rights reserved.
 +#
@@ -258,9 +240,8 @@
 +} else {
 +	print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n";
 +}
-+
---- ./SuSE/sysconfig.suseconfig-perl.orig	2011-06-17 09:05:57.000000000 +0000
-+++ ./SuSE/sysconfig.suseconfig-perl	2011-06-17 09:05:57.000000000 +0000
+--- SuSE/sysconfig.suseconfig-perl.orig	2023-07-19 12:31:54.415128119 +0000
++++ SuSE/sysconfig.suseconfig-perl	2023-07-19 12:31:54.415128119 +0000
 @@ -0,0 +1,8 @@
 +## Path:	System/SuSEconfig
 +## Type:	yesno
@@ -270,35 +251,24 @@
 +# May SuSEconfig modify your perllocal.pod? (yes/no)
 +#
 +CREATE_PERLLOCAL_POD="yes"
---- ./cpan/CPAN/lib/CPAN.pm.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./cpan/CPAN/lib/CPAN.pm	2011-06-17 09:05:57.000000000 +0000
-@@ -64,7 +64,7 @@ sub _uniq;
- 
- no lib ".";
- 
--require Mac::BuildTools if $^O eq 'MacOS';
-+#require Mac::BuildTools if $^O eq 'MacOS';
- if ($ENV{PERL5_CPAN_IS_RUNNING} && $$ != $ENV{PERL5_CPAN_IS_RUNNING}) {
-     $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} ||= $ENV{PERL5_CPAN_IS_RUNNING};
-     my @rec = _uniq split(/,/, $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION}), $$;
---- ./cpan/Compress-Raw-Zlib/config.in.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./cpan/Compress-Raw-Zlib/config.in	2011-06-17 09:05:57.000000000 +0000
-@@ -16,9 +16,9 @@
+--- cpan/Compress-Raw-Zlib/config.in.orig	2023-05-26 01:05:34.000000000 +0000
++++ cpan/Compress-Raw-Zlib/config.in	2023-07-19 12:31:54.415128119 +0000
+@@ -11,9 +11,9 @@
  #    Setting the Gzip OS Code
  #
  
 -BUILD_ZLIB      = True
--INCLUDE         = ./zlib-src
--LIB             = ./zlib-src
+-ZLIB_INCLUDE    = ./zlib-src
+-ZLIB_LIB        = ./zlib-src
 +BUILD_ZLIB      = False
-+INCLUDE         = /usr/include
-+LIB             = /usr/lib
- 
++ZLIB_INCLUDE    = /usr/include
++ZLIB_LIB        = /usr/lib
  OLD_ZLIB        = False
  GZIP_OS_CODE    = AUTO_DETECT
---- ./cpan/Encode/bin/enc2xs.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./cpan/Encode/bin/enc2xs	2011-06-17 09:05:57.000000000 +0000
-@@ -1005,13 +1005,13 @@ sub make_configlocal_pm {
+ USE_ZLIB_NG     = False
+--- cpan/Encode/bin/enc2xs.orig	2022-05-28 15:29:53.000000000 +0000
++++ cpan/Encode/bin/enc2xs	2023-07-19 12:31:54.419128114 +0000
+@@ -1080,7 +1080,7 @@ sub make_configlocal_pm {
  	    $LocalMod{$enc} ||= $mod;
  	}
      };
@@ -307,47 +277,8 @@
      $_ModLines = "";
      for my $enc ( sort keys %LocalMod ) {
          $_ModLines .=
-           qq(\$Encode::ExtModule{'$enc'} = "$LocalMod{$enc}";\n);
-     }
--    warn $_ModLines;
-+    warn $_ModLines if $_ModLines ne '';
-     $_LocalVer = _mkversion();
-     $_E2X      = find_e2x();
-     $_Inc      = $INC{"Encode.pm"};
---- ./cpan/File-Temp/Temp.pm.orig	2011-04-13 11:36:34.000000000 +0000
-+++ ./cpan/File-Temp/Temp.pm	2011-06-17 09:05:57.000000000 +0000
-@@ -146,7 +146,7 @@ use File::Path qw/ rmtree /;
- use Fcntl 1.03;
- use IO::Seekable;               # For SEEK_*
- use Errno;
--require VMS::Stdio if $^O eq 'VMS';
-+#require VMS::Stdio if $^O eq 'VMS';
- 
- # pre-emptively load Carp::Heavy. If we don't when we run out of file
- # handles and attempt to call croak() we get an error message telling
---- ./cpan/Sys-Syslog/t/syslog.t.orig	2011-06-17 00:06:09.000000000 +0000
-+++ ./cpan/Sys-Syslog/t/syslog.t	2011-06-17 09:05:57.000000000 +0000
-@@ -206,6 +206,7 @@ SKIP: {
-         }
-     }
-     else  {
-+	$r = 1 unless -e '/dev/log';
-         ok( $r, "setlogsock() should return true: '$r'" );
-     }
- 
---- ./cpan/libnet/Net/Config.pm.orig	2011-04-13 11:36:34.000000000 +0000
-+++ ./cpan/libnet/Net/Config.pm	2011-06-17 09:05:57.000000000 +0000
-@@ -37,7 +37,7 @@ eval { local $SIG{__DIE__}; require Net:
- # Try to get as much configuration info as possible from InternetConfig
- #
- $^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG;
--use Mac::InternetConfig;
-+#use Mac::InternetConfig;
- 
- {
- my %nc = (
---- ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig	2011-04-13 11:36:34.000000000 +0000
-+++ ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm	2011-06-17 09:05:57.000000000 +0000
+--- cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig	2023-05-26 01:05:34.000000000 +0000
++++ cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm	2023-07-19 12:31:54.419128114 +0000
 @@ -206,8 +206,11 @@ foreach my $key (sort(keys(%{$self->{dat
     {
     if (! -e $key)
@@ -362,8 +293,40 @@
        }
     }
  return(@missing);
---- ./ext/DynaLoader/hints/linux.pl.orig	2011-04-13 11:36:34.000000000 +0000
-+++ ./ext/DynaLoader/hints/linux.pl	2011-06-17 09:05:57.000000000 +0000
+--- cpan/File-Temp/lib/File/Temp.pm.orig	2020-12-28 16:57:43.000000000 +0000
++++ cpan/File-Temp/lib/File/Temp.pm	2023-07-19 12:31:54.419128114 +0000
+@@ -151,7 +151,7 @@ use Fcntl 1.03;
+ use IO::Seekable;               # For SEEK_*
+ use Errno;
+ use Scalar::Util 'refaddr';
+-require VMS::Stdio if $^O eq 'VMS';
++#require VMS::Stdio if $^O eq 'VMS';
+ 
+ # pre-emptively load Carp::Heavy. If we don't when we run out of file
+ # handles and attempt to call croak() we get an error message telling
+--- cpan/Sys-Syslog/t/syslog.t.orig	2020-12-28 16:57:43.000000000 +0000
++++ cpan/Sys-Syslog/t/syslog.t	2023-07-19 12:31:54.419128114 +0000
+@@ -222,6 +222,7 @@ SKIP: {
+         }
+     }
+     else  {
++	$r = 1 unless -e '/dev/log';
+         ok( $r, "setlogsock() should return true: '$r'" );
+     }
+ 
+--- cpan/libnet/lib/Net/Config.pm.orig	2023-05-26 01:05:34.000000000 +0000
++++ cpan/libnet/lib/Net/Config.pm	2023-07-19 12:31:54.419128114 +0000
+@@ -51,7 +51,7 @@ our %NetConfig = (
+ {
+ ## no critic (BuiltinFunctions::ProhibitStringyEval)
+ $^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG;
+-use Mac::InternetConfig;
++#use Mac::InternetConfig;
+ 
+ {
+ my %nc = (
+--- ext/DynaLoader/hints/linux.pl.orig	2017-06-16 19:49:10.000000000 +0000
++++ ext/DynaLoader/hints/linux.pl	2023-07-19 12:31:54.419128114 +0000
 @@ -2,4 +2,7 @@
  # Some Linux releases like to hide their <nlist.h>
  $self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf'
@@ -372,18 +335,8 @@
 +# module, so add cccdlflags if we're going for a shared libperl
 +$self->{CCFLAGS} = ($self->{CCFLAGS} || $Config{ccflags}) . " $Config{cccdlflags}" if $Config{'useshrplib'} eq 'true';
  1;
---- ./ext/NDBM_File/Makefile.PL.orig	2011-04-13 11:36:34.000000000 +0000
-+++ ./ext/NDBM_File/Makefile.PL	2011-06-17 09:05:57.000000000 +0000
-@@ -2,6 +2,7 @@ use ExtUtils::MakeMaker;
- WriteMakefile(
-     NAME	=> 'NDBM_File',
-     LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
-+    CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL',
-     XSPROTOARG => '-noprototypes', 		# XXX remove later?
-     VERSION_FROM => 'NDBM_File.pm',
-     INC => ($^O eq "MacOS" ? "-i ::::db:include" : "")
---- ./ext/ODBM_File/Makefile.PL.orig	2011-04-13 11:36:34.000000000 +0000
-+++ ./ext/ODBM_File/Makefile.PL	2011-06-17 09:05:57.000000000 +0000
+--- ext/ODBM_File/Makefile.PL.orig	2019-02-18 09:59:22.000000000 +0000
++++ ext/ODBM_File/Makefile.PL	2023-07-19 12:31:54.419128114 +0000
 @@ -1,7 +1,7 @@
  use ExtUtils::MakeMaker;
  WriteMakefile(
@@ -393,8 +346,8 @@
      XSPROTOARG => '-noprototypes', 		# XXX remove later?
      VERSION_FROM => 'ODBM_File.pm', 
  );
---- ./ext/ODBM_File/hints/linux.pl.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./ext/ODBM_File/hints/linux.pl	2011-06-17 09:05:57.000000000 +0000
+--- ext/ODBM_File/hints/linux.pl.orig	2019-02-18 09:59:22.000000000 +0000
++++ ext/ODBM_File/hints/linux.pl	2023-07-19 12:31:54.419128114 +0000
 @@ -1,5 +1,5 @@
  # uses GDBM dbm compatibility feature - at least on SuSE 8.0
 -$self->{LIBS} = ['-lgdbm'];
@@ -402,46 +355,39 @@
  
  # Debian/Ubuntu have libgdbm_compat.so but not this file,
  # so linking may fail
---- ./hints/linux.sh.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./hints/linux.sh	2011-06-17 09:05:57.000000000 +0000
-@@ -50,12 +50,14 @@ ignore_versioned_solibs='y'
+--- hints/linux.sh.orig	2023-05-26 01:05:34.000000000 +0000
++++ hints/linux.sh	2023-07-19 12:31:54.419128114 +0000
+@@ -53,7 +53,7 @@
  # BSD compatibility library no longer needed
  # 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl.
  # bind causes issues with several reentrant functions
 -set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /'`
-+set `echo X "$libswanted "| \
-+    sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /' \
-+        -e 's/ db / /' -e 's/ gdbm / /' -e 's/ ndbm / /'`
++set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /' -e 's/ db / /' -e 's/ gdbm / /' -e 's/ ndbm / /'`
  shift
  libswanted="$*"
  
- # Debian 4.0 puts ndbm in the -lgdbm_compat library.
--libswanted="$libswanted gdbm_compat"
-+#libswanted="$libswanted gdbm_compat"
+@@ -64,6 +64,20 @@
+     libswanted="$libswanted gdbm_compat"
+ fi
  
- # If you have glibc, then report the version for ./myconfig bug reporting.
- # (Configure doesn't need to know the specific version since it just uses
-@@ -63,7 +65,18 @@ libswanted="$libswanted gdbm_compat"
- # We don't use __GLIBC__ and  __GLIBC_MINOR__ because they
- # are insufficiently precise to distinguish things like
- # libc-2.0.6 and libc-2.0.7.
--if test -L /lib/libc.so.6; then
-+if test -e /lib64/libc.so.6; then
++if test -e /lib64/libc.so.6 ; then
 +    libc=`ls -l /lib64/libc.so.6 | awk '{print $NF}'`
 +    libc=/lib64/$libc
-+    #plibpth='/usr/local/lib64 /usr/lib64 /lib64'
 +    glibpth='/lib64 /usr/lib64 /usr/local/lib64'
 +    libspath='/usr/local/lib64 /lib64 /usr/lib64'
-+    #libpth='/usr/local/lib64 /lib64 /usr/lib64'
 +    loclibpth='/usr/local/lib64'
 +    lddlflags='-shared -L/usr/local/lib64'
 +    ldflags=' -L/usr/local/lib64'
 +    libs='-lm -ldl -lcrypt'
 +elif test -L /lib/libc.so.6; then
-     libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'`
-     libc=/lib/$libc
- fi
-@@ -148,6 +161,7 @@ case "$optimize" in
++    libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'`
++    libc=/lib/$libc
++fi
++
+ # Configure may fail to find lstat() since it's a static/inline
+ # function in <sys/stat.h>.
+ d_lstat=define
+@@ -173,6 +187,7 @@
              esac
          ;;
      esac
@@ -449,16 +395,7 @@
      ;;
  esac
  
-@@ -163,7 +177,7 @@ esac
- # Still, as an escape hatch, allow Configure command line overrides to
- # plibpth to bypass this check.
- case "$plibpth" in
--'') plibpth=`gcc -print-search-dirs | grep libraries |
-+'UBUNTU') plibpth=`gcc -print-search-dirs | grep libraries |
- 	cut -f2- -d= | tr ':' $trnl | grep -v 'gcc' | sed -e 's:/$::'`
-     set X $plibpth # Collapse all entries on one line
-     shift
-@@ -171,6 +185,10 @@ case "$plibpth" in
+@@ -260,6 +275,33 @@
      ;;
  esac
  
@@ -466,13 +403,6 @@
 +man3dir=/usr/share/man/man3
 +man3ext=3pm
 +
- # Are we using ELF?  Thanks to Kenneth Albanowski <kjahds@kjahds.com>
- # for this test.
- cat >try.c <<'EOM'
-@@ -255,6 +273,29 @@ EOM
- 	esac
- fi
- 
 +case `uname -m` in
 +i?86) archname='i586-linux';;
 +*)    archname=`uname -m`-linux;;
@@ -496,10 +426,10 @@
 +locincpth=
 +loclibpth=
 +
- rm -f try.c a.out
- 
- if /bin/sh -c exit; then
-@@ -304,6 +345,9 @@ else
+ if ${sh:-/bin/sh} -c exit; then
+   echo ''
+   echo 'You appear to have a working bash.  Good.'
+@@ -307,6 +349,9 @@
  	echo "Couldn't find tcsh.  Csh-based globbing might be broken."
      fi
  fi
@@ -509,7 +439,7 @@
  
  # Shimpei Yamashita <shimpei@socrates.patnet.caltech.edu>
  # Message-Id: <33EF1634.B36B6500@pobox.com>
-@@ -382,6 +426,8 @@ $define|true|[yY]*)
+@@ -417,6 +462,8 @@
  	d_localtime_r_proto="$define"
  	d_random_r_proto="$define"
  
@@ -518,73 +448,45 @@
  	;;
  esac
  EOCBU
---- ./installperl.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./installperl	2011-06-17 09:05:57.000000000 +0000
-@@ -753,7 +753,7 @@ sub installlib {
-     return if $name eq 'ExtUtils/XSSymSet.pm' and !$Is_VMS;
+--- installperl.orig	2022-05-28 15:29:53.000000000 +0000
++++ installperl	2023-07-19 12:31:54.419128114 +0000
+@@ -650,7 +650,7 @@ sub installlib {
+     return if $name eq 'ExtUtils/MakeMaker/version/regex.pm';
  
      my $installlib = $installprivlib;
 -    if ($dir =~ /^auto\// ||
 +    if (($dir =~ /^auto\// && $dir ne 'auto/Compress/Zlib') ||
  	  ($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) ||
- 	  ($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) ||
+ 	  ($name =~ /^(.*)\.(?:h|lib)$/i && $Is_W32) ||
  	  $name=~/^Config_(heavy|git)\.pl\z/
---- ./lib/perl5db.pl.orig	2011-06-17 00:06:09.000000000 +0000
-+++ ./lib/perl5db.pl	2011-06-17 09:05:57.000000000 +0000
-@@ -3388,6 +3388,8 @@ reading another.
-                             open( OUT, ">&STDOUT" )    # XXX: lost message
-                               || &warn("Can't restore DB::OUT");
-                         }
-+			# tell readline the new OUT handle
-+			$term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline;
-                         next CMD;
-                     } ## end unless ($piped = open(OUT,...
+--- lib/perl5db.pl.orig	2023-05-26 01:05:34.000000000 +0000
++++ lib/perl5db.pl	2023-07-19 12:31:54.419128114 +0000
+@@ -2369,6 +2369,8 @@ sub _DB__handle_run_command_in_pager_com
+                 open( OUT, ">&STDOUT" )    # XXX: lost message
+                 || _db_warn("Can't restore DB::OUT");
+             }
++	    # tell readline the new OUT handle
++	    $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline;
+             next CMD;
+         } ## end unless ($piped = open(OUT,...
  
-@@ -3512,6 +3514,8 @@ our standard filehandles for input and o
-                 # if necessary,
-                 close(SAVEOUT);
-                 select($selected), $selected = "" unless $selected eq "";
-+		# tell readline the new OUT handle
-+		$term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline;
+@@ -2473,6 +2475,9 @@ sub _DB__at_end_of_every_command {
+             $obj->selected("");
+         }
  
-                 # No pipes now.
-                 $piped = "";
---- ./locale.c.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./locale.c	2011-06-17 09:05:57.000000000 +0000
-@@ -357,9 +357,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
- 
-     if (setlocale_failure) {
- 	char *p;
-+#if 0
- 	const bool locwarn = (printwarn > 1 ||
- 			(printwarn &&
- 			 (!(p = PerlEnv_getenv("PERL_BADLANG")) || atoi(p))));
-+#else
-+	const bool locwarn = (printwarn > 1 ||
-+			(printwarn &&
-+			 ((p = PerlEnv_getenv("PERL_BADLANG")) && atoi(p))));
-+#endif
- 
- 	if (locwarn) {
- #ifdef LC_ALL
---- ./t/op/numconvert.t.orig	2011-06-09 20:04:29.000000000 +0000
-+++ ./t/op/numconvert.t	2011-06-17 09:05:57.000000000 +0000
-@@ -47,7 +47,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER
- 
- # Bulk out if unsigned type is hopelessly wrong:
- my $max_uv1 = ~0;
--my $max_uv2 = sprintf "%u", $max_uv1 ** 6; # 6 is an arbitrary number here
-+my $max_uv2 = sprintf "%lu", $max_uv1 ** 6; # 6 is an arbitrary number here
- my $big_iv = do {use integer; $max_uv1 * 16}; # 16 is an arbitrary number here
- my $max_uv_less3 = $max_uv1 - 3;
- 
---- ./utils/perlbug.PL.orig	2011-06-17 00:06:09.000000000 +0000
-+++ ./utils/perlbug.PL	2011-06-17 09:05:57.000000000 +0000
-@@ -1070,6 +1070,7 @@ sub _message_headers {
++	# tell readline the new OUT handle
++	$term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline;
++
+         # No pipes now.
+         $obj->piped("");
+     } ## end if ($piped)
+--- utils/perlbug.PL.orig	2023-05-26 01:05:34.000000000 +0000
++++ utils/perlbug.PL	2023-07-19 12:31:54.419128114 +0000
+@@ -1066,6 +1066,7 @@ sub _message_headers {
      $headers{'Cc'}         = $cc        if ($cc);
      $headers{'Message-Id'} = $messageid if ($messageid);
      $headers{'Reply-To'}   = $from      if ($from);
 +    $headers{'X-Webfrontend'} = 'perlbug';
      $headers{'From'}       = $from      if ($from);
-     return \%headers;
- }
+     if ($have_attachment) {
+         $headers{'MIME-Version'} = '1.0';

perl-HiRes.t-timeout.diff

@@ -1,11 +1,44 @@
---- cpan/Time-HiRes/t/HiRes.t.orig
-+++ cpan/Time-HiRes/t/HiRes.t
-@@ -116,7 +116,7 @@ if (open(XDEFINE, "xdefine")) {
+--- ./dist/Time-HiRes/t/alarm.t.orig	2020-06-14 23:01:25.000000000 +0000
++++ ./dist/Time-HiRes/t/alarm.t	2020-10-27 10:52:36.824741858 +0000
+@@ -8,7 +8,7 @@ BEGIN { require_ok "Time::HiRes"; }
+ 
+ use Config;
+ 
+-my $limit = 0.25; # 25% is acceptable slosh for testing timers
++my $limit = 0.60; # 25% is acceptable slosh for testing timers
+ 
+ my $xdefine = '';
+ if (open(XDEFINE, "<", "xdefine")) {
+--- ./dist/Time-HiRes/t/clock.t.orig	2020-06-14 23:01:25.000000000 +0000
++++ ./dist/Time-HiRes/t/clock.t	2020-10-27 10:52:36.824741858 +0000
+@@ -29,7 +29,7 @@ printf("# have_clock           = %d\n",
  # completes fine with (say) 30% slosh, and fail otherwise.  If you do that,
  # consider changing over to test.pl at the same time.
  # --A.D., Nov 27, 2001
 -my $limit = 0.25; # 25% is acceptable slosh for testing timers
 +my $limit = 0.60; # 25% is acceptable slosh for testing timers
  
- sub skip {
-     map { print "ok $_ # skipped\n" } @_;
+ SKIP: {
+     skip "no clock_gettime", 1
+--- ./dist/Time-HiRes/t/itimer.t.orig	2020-06-14 23:01:25.000000000 +0000
++++ ./dist/Time-HiRes/t/itimer.t	2020-10-27 10:52:36.824741858 +0000
+@@ -29,7 +29,7 @@ use Test::More tests => 2;
+ BEGIN { push @INC, '.' }
+ use t::Watchdog;
+ 
+-my $limit = 0.25; # 25% is acceptable slosh for testing timers
++my $limit = 0.60; # 25% is acceptable slosh for testing timers
+ 
+ my $i = 3;
+ my $r = [Time::HiRes::gettimeofday()];
+--- ./dist/Time-HiRes/t/usleep.t.orig	2020-06-14 23:01:25.000000000 +0000
++++ ./dist/Time-HiRes/t/usleep.t	2020-10-27 10:52:36.824741858 +0000
+@@ -16,7 +16,7 @@ eval { Time::HiRes::usleep(-2) };
+ like $@, qr/::usleep\(-2\): negative time not invented yet/,
+         "negative time error";
+ 
+-my $limit = 0.25; # 25% is acceptable slosh for testing timers
++my $limit = 0.60; # 25% is acceptable slosh for testing timers
+ 
+ my $one = CORE::time;
+ Time::HiRes::usleep(10_000);

perl-cbuilder-ccflags.diff

@@ -1,18 +0,0 @@
---- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm.orig	2011-05-26 09:23:49.000000000 +0000
-+++ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm	2011-05-26 09:26:10.000000000 +0000
-@@ -40,11 +40,13 @@ sub new {
-     $self->{config}{$k} = $v unless exists $self->{config}{$k};
-   }
-   $self->{config}{cc} = $ENV{CC} if defined $ENV{CC};
--  $self->{config}{ccflags} = $ENV{CFLAGS} if defined $ENV{CFLAGS};
-+  $self->{config}{ccflags} = join(" ", $self->{config}{ccflags}, $ENV{CFLAGS})
-+    if defined $ENV{CFLAGS};
-   $self->{config}{cxx} = $ENV{CXX} if defined $ENV{CXX};
-   $self->{config}{cxxflags} = $ENV{CXXFLAGS} if defined $ENV{CXXFLAGS};
-   $self->{config}{ld} = $ENV{LD} if defined $ENV{LD};
--  $self->{config}{ldflags} = $ENV{LDFLAGS} if defined $ENV{LDFLAGS};
-+  $self->{config}{ldflags} = join(" ", $self->{config}{ldflags}, $ENV{LDFLAGS})
-+     if defined $ENV{LDFLAGS};
- 
-   unless ( exists $self->{config}{cxx} ) {
-     my ($ccpath, $ccbase, $ccsfx ) = fileparse($self->{config}{cc}, qr/\.[^.]*/);

perl-fixed-uname.patch

@@ -0,0 +1,13 @@
+diff --git a/Configure b/Configure
+index 72c3794..7c2edf6 100755
+--- a/Configure
++++ b/Configure
+@@ -3541,7 +3541,7 @@ EOM
+ 			;;
+ 		linux)	osname=linux
+ 			case "$3" in
+-			*)	osvers="$3" ;;
++			*)	osvers="6.14.0" ;;
+ 			esac
+ 			$test -f /system/lib/libandroid.so && osname=linux-android
+ 			;;

perl-gracefull-net-ftp.diff

@@ -1,58 +0,0 @@
-This patch avoids several silly warnings, and fills $res->status_line with something useful 
-in case your FTP server babbles some text message without a leading response code.
-Seen from ftp.opensuse.org:
-connect(3, {sa_family=AF_INET, sin_port=htons(21), sin_addr=inet_addr("195.135.221.134")}, 16) = 0
-read(3, "This server is busy, please try again later or any of my mirrors: http://download.opensuse.org\n\n", 1024) = 96
-Note the missing "500 " before "This".
-Command line ftp clients handle this gracefully, so should we.
-
-With this patch, LWP clients see a status_line of "500 This server is busy, ..."
-2006-12-20, jw@suse.de
-
---- cpan/libnet/Net/FTP.pm.orig	2007-12-18 10:47:07.000000000 +0000
-+++ cpan/libnet/Net/FTP.pm	2008-01-07 10:08:30.000000000 +0000
-@@ -107,7 +107,7 @@ sub new {
- 
-   unless ($ftp->response() == CMD_OK) {
-     $ftp->close();
--    $@ = $ftp->message;
-+    $@ = $ftp->message || $@;	# keep $@ if no message. Happens when response did not start with a code.
-     undef $ftp;
-   }
- 
-@@ -1077,7 +1077,7 @@ sub command {
- 
- sub response {
-   my $ftp  = shift;
--  my $code = $ftp->SUPER::response();
-+  my $code = $ftp->SUPER::response() || CMD_ERROR;	# assume error if undef
- 
-   delete ${*$ftp}{'net_ftp_pasv'}
-     if ($code != CMD_MORE && $code != CMD_INFO);
-@@ -1094,7 +1094,7 @@ sub parse_response {
- 
-   # Darn MS FTP server is a load of CRAP !!!!
-   return ()
--    unless ${*$ftp}{'net_cmd_code'} + 0;
-+    unless (${*$ftp}{'net_cmd_code'} || 0) + 0;
- 
-   (${*$ftp}{'net_cmd_code'}, 1);
- }
---- cpan/libnet/Net/Cmd.pm.orig	2007-12-18 10:47:07.000000000 +0000
-+++ cpan/libnet/Net/Cmd.pm	2008-01-07 10:09:34.000000000 +0000
-@@ -353,6 +353,7 @@ sub response {
-     ($code, $more) = $cmd->parse_response($str);
-     unless (defined $code) {
-       $cmd->ungetline($str);
-+      $@ = $str;	# $@ is used as a tunneling hack.
-       last;
-     }
- 
-@@ -363,6 +364,7 @@ sub response {
-     last unless ($more);
-   }
- 
-+  return undef unless defined $code;
-   substr($code, 0, 1);
- }
- 

perl-incfix.diff

@@ -0,0 +1,39 @@
+diff -ur perl-5.34.0/perl_inc_macro.h perl-5.34.0_fix/perl_inc_macro.h
+--- perl-5.34.0/perl_inc_macro.h	2021-01-21 00:04:44.000000000 +0100
++++ perl-5.34.0_fix/perl_inc_macro.h	2021-08-28 14:20:24.781533820 +0200
+@@ -83,10 +83,12 @@
+ #	define INCPUSH_PRIVLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCATE);
+ #endif
+ 
++#if 0
+ #ifdef PERL_OTHERLIBDIRS
+ #	define INCPUSH_PERL_OTHERLIBDIRS S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), \
+                       INCPUSH_ADD_VERSIONED_SUB_DIRS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
+ #endif
++#endif
+ 
+ 
+ /* submacros for INCPUSH_PERL5LIB */
+@@ -133,19 +135,19 @@
+ #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
+     /* Search for version-specific dirs below here */
+ #	define INCPUSH_SITELIB_STEM   S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), \
+-                      INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
++                      INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
+ #endif
+ 
+ 
+ #if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST)
+     /* Search for version-specific dirs below here */
+ #	define INCPUSH_PERL_VENDORLIB_STEM    S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM), \
+-                      INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
++                      INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
+ #endif
+ 
+ #ifdef PERL_OTHERLIBDIRS
+ #	define INCPUSH_PERL_OTHERLIBDIRS_ARCHONLY  S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), \
+-                      INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS|INCPUSH_CAN_RELOCATE);
++                      INCPUSH_CAN_RELOCATE);
+ #endif
+ 
+ 

perl-netcmdutf8.diff

@@ -1,23 +1,25 @@
---- ./cpan/libnet/Net/Cmd.pm.orig	2009-09-03 14:32:13.000000000 +0000
-+++ ./cpan/libnet/Net/Cmd.pm	2009-09-03 14:47:30.000000000 +0000
-@@ -226,6 +226,10 @@ sub command {
+Index: cpan/libnet/lib/Net/Cmd.pm
+===================================================================
+--- cpan/libnet/lib/Net/Cmd.pm.orig
++++ cpan/libnet/lib/Net/Cmd.pm
+@@ -290,6 +290,10 @@ sub command {
      $str = $cmd->toascii($str) if $tr;
      $str .= "\015\012";
  
 +    # encode to individual utf8 bytes if
 +    # $str is a string (in internal UTF-8)
-+    utf8::encode($str) if is_utf8($str);
++    utf8::encode($str) if utf8::is_utf8($str);
 +
-     my $len = length $str;
-     my $swlen;
+     $cmd->debug_print(1, $str)
+       if ($cmd->debug);
  
-@@ -473,6 +477,10 @@ sub rawdatasend {
- 
-   return 0 unless defined(fileno($cmd));
+@@ -525,6 +529,10 @@ sub rawdatasend {
+   return 0
+     if $cmd->_is_closed;
  
 +  # encode to individual utf8 bytes if
 +  # $line is a string (in internal UTF-8)
-+  utf8::encode($line) if is_utf8($line);
++  utf8::encode($line) if utf8::is_utf8($line);
 +
    return 1
      unless length($line);

perl-nroff.diff

@@ -1,11 +1,19 @@
---- dist/Pod-Perldoc/lib/Pod/Perldoc.pm.orig	2010-02-17 14:35:24.000000000 +0000
-+++ dist/Pod-Perldoc/lib/Pod/Perldoc.pm	2010-03-23 15:40:17.000000000 +0000
-@@ -655,7 +655,7 @@ sub options_processing {
+--- ./cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig	2017-04-19 13:37:05.000000000 +0000
++++ ./cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm	2017-08-30 12:12:38.967184117 +0000
+@@ -64,7 +64,7 @@ sub _roffer_candidates {
+ 	my( $self ) = @_;
  
-     $self->options_sanity;
+ 	if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+-	else                    { qw( groff nroff mandoc ) }
++	else                    { qw( nroff groff mandoc ) }
+ 	}
  
--    $self->opt_n("nroff") unless $self->opt_n;
-+    $self->opt_n("nroff -c") unless $self->opt_n;
-     $self->add_formatter_option( '__nroffer' => $self->opt_n );
+ sub _find_roffer {
+@@ -232,6 +232,7 @@ sub _collect_nroff_switches {
+ 	# don't have a -c switch, so that unconditionally adding it here
+ 	# would presumably be a Bad Thing   -- sburke@cpan.org
+     push @render_switches, '-c' if( $self->_is_roff and $self->is_cygwin );
++    push @render_switches, '-c' if( $self->_is_nroff );
  
-     # Get language from PERLDOC_POD2 environment variable
+ 	return @render_switches;
+ 	}

perl-regexp-refoverflow.diff

@@ -1,38 +0,0 @@
---- ./regcomp.c.orig	2011-05-08 03:10:08.000000000 +0000
-+++ ./regcomp.c	2011-05-16 11:49:16.000000000 +0000
-@@ -6832,7 +6832,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
- 
-                 ret = reganode(pRExC_state, GOSUB, num);
-                 if (!SIZE_ONLY) {
--		    if (num > (I32)RExC_rx->nparens) {
-+		    if (num < 0 || num > (I32)RExC_rx->nparens) {
- 			RExC_parse++;
- 			vFAIL("Reference to nonexistent group");
- 	            }
-@@ -8428,7 +8428,7 @@ tryagain:
-                     if (num < 1)
-                         vFAIL("Reference to nonexistent or unclosed group");
-                 }
--		if (!isg && num > 9 && num >= RExC_npar)
-+		if (!isg && (num < 0 || (num > 9 && num >= RExC_npar)))
- 		    goto defchar;
- 		else {
- 		    char * const parse_start = RExC_parse - 1; /* MJD */
-@@ -8442,7 +8442,7 @@ tryagain:
-                         RExC_parse++;
-                     }    
- 		    if (!SIZE_ONLY) {
--		        if (num > (I32)RExC_rx->nparens)
-+		        if (num < 0 || num > (I32)RExC_rx->nparens)
- 			    vFAIL("Reference to nonexistent group");
- 		    }
- 		    RExC_sawback = 1;
-@@ -8666,7 +8666,7 @@ tryagain:
- 		    case '0': case '1': case '2': case '3':case '4':
- 		    case '5': case '6': case '7': case '8':case '9':
- 			if (*p == '0' ||
--			    (isDIGIT(p[1]) && atoi(p) >= RExC_npar))
-+			    (isDIGIT(p[1]) && (U32)atoi(p) >= (U32)RExC_npar))
- 			{
- 			    I32 flags = PERL_SCAN_SILENT_ILLDIGIT;
- 			    STRLEN numlen = 3;

perl-reproducible.patch

@@ -0,0 +1,24 @@
+PATCH-FIX-OPENSUSE
+Author: Bernhard M. Wiedemann <bwiedemann suse de>
+Date: 2017-12-04
+
+replace hostname, username, time with fixed values
+
+Index: perl-5.26.1/Configure
+===================================================================
+--- perl-5.26.1.orig/Configure
++++ perl-5.26.1/Configure
+@@ -9234,6 +9234,13 @@ esac
+ set $myhostname
+ myhostname=$1
+ 
++if test -n "$SOURCE_DATE_EPOCH" ; then
++	cf_time="`LC_ALL=C LANGUAGE=C $date -u -d@$SOURCE_DATE_EPOCH`"
++	cf_by="reproducible"
++	myhostname="reproducible"
++	myuname="reproducible"
++fi
++
+ : verify guess
+ if $test "$myhostname" ; then
+ 	dflt=y

perl-reproducible2.patch

@@ -0,0 +1,13 @@
+--- ./dist/Storable/stacksize.orig	2020-06-14 23:01:25.000000000 +0000
++++ ./dist/Storable/stacksize	2020-10-27 10:57:33.147900085 +0000
+@@ -164,8 +164,8 @@ my $max_depth_hash = $n;
+ # be fairly aggressive in trimming this, smoke testing showed
+ # several apparently random failures here, eg. working in one
+ # configuration, but not in a very similar configuration.
+-$max_depth = int(0.6 * $max_depth);
+-$max_depth_hash = int(0.6 * $max_depth_hash);
++$max_depth = int(0.6 * $max_depth) & ~31;
++$max_depth_hash = int(0.6 * $max_depth_hash) & ~31;
+ 
+ my $stack_reserve = $^O eq "MSWin32" ? 32 : 16;
+ if ($] ge "5.016" && !($^O eq "cygwin" && $ptrsize == 8)) {

perl-saverecontext.diff

@@ -1,28 +1,28 @@
---- ./regcomp.c.orig	2011-05-16 11:56:49.000000000 +0000
-+++ ./regcomp.c	2011-05-16 11:57:14.000000000 +0000
-@@ -11929,8 +11929,23 @@ Perl_save_re_context(pTHX)
+Index: regcomp.c
+===================================================================
+--- regcomp.c.orig
++++ regcomp.c
+@@ -19959,8 +19959,21 @@ Perl_save_re_context(pTHX)
  
- 		if (gvp) {
- 		    GV * const gv = *gvp;
--		    if (SvTYPE(gv) == SVt_PVGV && GvSV(gv))
--			save_scalar(gv);
-+		    if (SvTYPE(gv) == SVt_PVGV && GvSV(gv)) {
-+			/* this is a copy of save_scalar() without the GETMAGIC call, RT#76538 */
-+			SV ** const sptr = &GvSVn(gv);
-+			SV * osv = *sptr;
-+			SV * nsv = newSV(0);
-+			save_pushptrptr(SvREFCNT_inc_simple(gv), SvREFCNT_inc(osv), SAVEt_SV);
-+			if (SvTYPE(osv) >= SVt_PVMG && SvMAGIC(osv) && SvTYPE(osv) != SVt_PVGV) {
-+			    if (SvGMAGICAL(osv)) {
-+				const bool oldtainted = PL_tainted;
-+				SvFLAGS(osv) |= (SvFLAGS(osv) &
-+				    (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
-+				PL_tainted = oldtainted;
-+			    }
-+			    mg_localize(osv, nsv, 1);
-+			}
-+			*sptr = nsv;
+         if (gvp) {
+             GV * const gv = *gvp;
+-            if (SvTYPE(gv) == SVt_PVGV && GvSV(gv))
+-                save_scalar(gv);
++	    if (SvTYPE(gv) == SVt_PVGV && GvSV(gv)) {
++		/* this is a copy of save_scalar() without the GETMAGIC call, RT#76538 */
++		SV ** const sptr = &GvSVn(gv);
++		SV * osv = *sptr;
++		SV * nsv = newSV(0);
++		save_pushptrptr(SvREFCNT_inc_simple(gv), SvREFCNT_inc(osv), SAVEt_SV);
++		if (SvTYPE(osv) >= SVt_PVMG && SvMAGIC(osv)) {
++		    if (SvGMAGICAL(osv)) {
++			SvFLAGS(osv) |= (SvFLAGS(osv) &
++			    (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
 +		    }
- 		}
- 	    }
- 	}
++		    mg_localize(osv, nsv, (bool)1);
++		}
++		*sptr = nsv;
++	    }
+         }
+     }
+ }

perl.changes

@@ -1,3 +1,812 @@
+-------------------------------------------------------------------
+Fri Jul 11 12:40:31 CEST 2025 - mls@suse.de
+
+- update to 5.42.0
+  * new pragma "source::encoding"
+  * new ":writer" attribute on field variables
+  * new "any" and "all" operators
+  * lexical method declaration using "my method"
+  * lexical method invocation operator "->&"
+  * switch and Smart Match operator kept, behind a feature
+  * unicode 16.0 supported
+  * assigning logical xor "^^=" operator
+  * many performance enhancements
+- drop perl-dirdup.diff (included upstream)
+
+-------------------------------------------------------------------
+Mon Jun  9 12:15:01 UTC 2025 - Bernhard Wiedemann <bwiedemann@suse.com>
+
+- Replace usage of %jobs for reproducible builds (boo#1237231)
+- Add perl-fixed-uname.patch to not store kernel version (boo#1230137)
+
+-------------------------------------------------------------------
+Thu Jun  5 11:15:53 CEST 2025 - mls@suse.de
+
+- do not change the current directory when cloning an open
+  directory handle [bnc#1244079] [CVE-2025-40909]
+  new patch: perl-dirdup.diff
+
+-------------------------------------------------------------------
+Mon Apr 14 11:17:06 CEST 2025 - mls@suse.de
+
+- update to 5.40.2
+  * fix heap buffer overflow with tr// [bsc#1241083] [CVE-2024-56406]
+
+-------------------------------------------------------------------
+Thu Mar 20 12:06:19 CET 2025 - mls@suse.de
+
+- Drop BerkeleyDB support from core perl [jsc#PED-12413]
+
+-------------------------------------------------------------------
+Fri Mar  7 14:54:59 CET 2025 - mls@suse.de
+
+- update to 5.40.1
+ * fix strftime sometimes crashing if a non-string was used as argument
+ * some functions in the builtin:: package would crash when used after
+   a tail call
+ * fix utf8n_to_uvchr sometimes failing to correctly identify certain
+   invalid UTF-8 sequences as invalid.
+
+-------------------------------------------------------------------
+Wed Jul  3 07:31:25 UTC 2024 - Dirk Stoecker <opensuse@dstoecker.de>
+
+- Insert manual provide for perl(Getopt::Long) until new version
+  transition is done
+
+-------------------------------------------------------------------
+Mon Jun 17 12:36:15 CEST 2024 - mls@suse.de
+
+- move UNIVERSAL.pm into perl-base
+
+-------------------------------------------------------------------
+Tue Jun 11 16:05:14 UTC 2024 - Dirk Stoecker <opensuse@dstoecker.de>
+
+- update to 5.40.0
+  * New __CLASS__ Keyword
+  * :reader attribute for field variables
+  * Permit a space in -M command-line option
+  * Restrictions to use VERSION declarations
+  * New builtin::inf and builtin::nan functions (experimental)
+  * New ^^ logical xor operator
+  * try/catch feature is no longer experimental
+  * for iterating over multiple values at a time is no longer experimental
+  * builtin module is no longer experimental
+  * The :5.40 feature bundle adds try
+  * use v5.40; imports builtin functions
+  * CVE-2023-47038 - Write past buffer end via illegal user-defined Unicode property
+  * CVE-2023-47039 - Perl for Windows binary hijacking vulnerability
+  * reset EXPR now calls set-magic on scalars
+  * Calling the import method of an unknown package produces a warning
+  * return no longer allows an indirect object
+  * Class barewords no longer resolved as file handles in method calls
+    under no feature "bareword_filehandles"
+  * Using goto to jump from an outer scope into an inner scope is
+    deprecated and will be removed completely in Perl 5.42. [GH #21601]
+  * The negation OPs have been modified to support the generic TARGMY
+    optimization. [GH #21442]
+- Refresh perl-5.38.0.diff
+- Drop perl-5.18.2-overflow.diff (no longer applicable)
+- Drop perl-locale-backport.diff (proper fix in new version)
+- Drop old manual package name based perl provides
+
+-------------------------------------------------------------------
+Fri Apr 12 13:06:56 CEST 2024 - mls@suse.de
+
+- Revert commit 7af2d2037375d58e700f9e1b217efb2c4db66133 as suggested
+  by upstream perl
+  * fixed locale being clobbered by perl [bsc#1220195]
+  * new patch: perl-locale-backport.diff
+
+-------------------------------------------------------------------
+Tue Feb 27 15:21:49 UTC 2024 - Dominique Leuenberger <dimstar@opensuse.org>
+
+- Use %patch -P N instead of deprecated %patchN.
+
+-------------------------------------------------------------------
+Mon Nov 27 10:50:24 CET 2023 - mls@suse.de
+
+- Update to perl 5.38.2
+  * fixes [CVE-2023-47038] Write past buffer end via illegal
+    user-defined Unicode property [bnc#1217084]
+  * fixes [CVE-2023-47039] Perl for Windows binary hijacking
+    vulnerability [bnc#1217085]
+
+-------------------------------------------------------------------
+Thu Sep 21 10:51:15 UTC 2023 - Neal Gompa <ngompa@opensuse.org>
+
+- Use 64-bit integers on all platforms
+
+-------------------------------------------------------------------
+Wed Jul 19 14:34:43 CEST 2023 - mls@suse.de
+
+- Update to perl 5.38.0
+  * new "class" feature
+  * support for unicode 15.0
+  * defined-or and logical-or assignment default
+    expressions in signatures
+  * optimistic eval in patterns
+  * readline() no longer clears the stream error and eof flags
+  * "INIT" blocks no longer run after an "exit()" in "BEGIN"
+  * utf8::upgrade() keeps the undef value
+  * deprecation of ' as package name separator
+  * deprecation of the smart match operator
+  * PERL_USE_SAFE_PUTENV is now the default
+- Rebase perl-5.36.0.diff to perl-5.38.0.diff
+- Refresh perl_skip_flaky_tests_powerpc.patch
+
+-------------------------------------------------------------------
+Thu Jun  1 15:27:36 UTC 2023 - Dirk Stoecker <opensuse@dstoecker.de>
+
+- update to perl 5.36.1 - maintenance release
+  * Module::CoreList has been upgraded from version 5.20220520 to 5.20230423.
+  * Fixed: An eval() as the last statement in a regex code block could trigger
+    an interpreter panic
+  * An eval EXPR referring to a lexical sub defined in grandparent scope no
+    longer produces an assertion failures.
+  * Writing to a magic variables associated with the selected output handle,
+    $^, $~, $=, $- and $%, no longer crashes perl if the IO object has been
+    cleared from the selected output handle.
+
+-------------------------------------------------------------------
+Wed Jan 11 08:00:20 UTC 2023 - Dominique Leuenberger <dimstar@opensuse.org>
+
+- Replace usage of deprecated fgrep with grep -F.
+
+-------------------------------------------------------------------
+Mon Jul 25 15:18:20 CEST 2022 - mls@suse.de
+
+- fix build on ppc
+  * updated patch: perl_skip_flaky_tests_powerpc.patch
+
+-------------------------------------------------------------------
+Fri Jul 15 07:14:54 UTC 2022 - Adrian Schröter <adrian@suse.de>
+
+- move builtin.pm to perl-base as File::Copy relies on it since last
+  update.
+  This fixes execution of builtime source services in OBS.
+
+-------------------------------------------------------------------
+Thu Jun 23 13:54:51 CEST 2022 - mls@suse.de
+
+- Update to 5.36.0
+  * the signatures and isa features are no longer experimental and
+    part of the v5.36 feature bundle
+  * the v5.36 bundle also enables warnings
+  * new '-g' command line flag (alias for -0777)
+  * support for unicode 14.0
+  * regex sets are no longer considered experimental
+  * experimental iterating over multiple values at a time
+  * experimental new builtin module
+  * experimental defer blocks
+  * try/catch can now have a finally block
+  * experimental non-ASCII delimiters for quote-like operators
+  * a physically empty sort is now a compile-time error
+- Rebase perl-5.34.0.dif to perl-5.36.0.diff
+- Refresh perl-5.18.2-overflow.diff
+
+-------------------------------------------------------------------
+Wed May  4 06:41:37 UTC 2022 - Dirk Stoecker <opensuse@dstoecker.de>
+
+- Update to 5.34.1 - maintenance release
+  B::Deparse has been upgraded from version 1.56 to 1.57.
+  Encode has been upgraded from version 3.08 to 3.08_01.
+  GDBM_File has been upgraded from version 1.19 to 1.19_01.
+  Module::CoreList has been upgraded from version 5.20210520 to 5.20220313.
+  perl5db.pl has been upgraded from version 1.60 to 1.60_01.
+- Drop c029d660f2fe60699cf64bbb3fa9f671a1a370d5.patch (upstream)
+
+-------------------------------------------------------------------
+Thu Mar  3 13:33:03 UTC 2022 - Andreas Schwab <schwab@suse.de>
+
+- Don't install anything in testsuite build
+- Run testsuite also in qemu build
+- posix-sigaction.patch: remove, this has been fixed properly in commit
+  19c9c2ee4a
+
+-------------------------------------------------------------------
+Mon Oct  4 08:08:30 UTC 2021 - Stephan Kulow <coolo@suse.com>
+
+- Add multibuild flavor to split the testsuite out of the main package
+  build time. The testsuite dominates the build time and having perl
+  in the bootstrap cycle, we better seperate it. The testsuite flavor
+  rebuilds the same package the same way, but runs the check section
+
+-------------------------------------------------------------------
+Thu Sep  2 15:22:45 UTC 2021 - Dirk Stoecker <opensuse@dstoecker.de>
+
+- update to 5.34.0
+  * Experimental Try/Catch Syntax
+  * Blanks freely allowed within but adjacent to curly braces
+  * New octal syntax 0oddddd
+  * Fix a memory leak in RegEx [GH #18604]
+  * ExtUtils::PL2Bat 0.004 has been added to the Perl core.
+  * Updated Modules and Pragmata
+- Rebase perl-5.28.0.dif to perl-5.34.0.dif
+- Rebase perl-incfix.diff
+- Rebase perl_skip_flaky_tests_powerpc.patch
+- Drop perl-gdbm-test-no-mmap.diff (no longer needed with gdbm 1.20)
+- Add c029d660f2fe60699cf64bbb3fa9f671a1a370d5.patch to fix build with
+  gdbm 1.20
+- Drop perl-fix2020.patch (included upstream)
+
+-------------------------------------------------------------------
+Sun Mar 14 20:57:51 UTC 2021 - Dirk Müller <dmueller@suse.com>
+
+- update to 5.32.1:
+    There are no changes intentionally incompatible with Perl 5.32.0.
+    * Data::Dumper has been upgraded from version 2.174 to 2.174_01.
+      A number of memory leaks have been fixed.
+    * DynaLoader has been upgraded from version 1.47 to 1.47_01.
+    * Module::CoreList has been upgraded from version 5.20200620 to
+      5.20210123.
+    * Opcode has been upgraded from version 1.47 to 1.48.
+      A warning has been added about evaluating untrusted code with the
+      perl interpreter.
+    * Safe has been upgraded from version 2.41 to 2.41_01.
+      A warning has been added about evaluating untrusted code with the
+      perl interpreter.
+
+-------------------------------------------------------------------
+Fri Nov 13 11:16:50 UTC 2020 - Dan Čermák <dcermak@suse.com>
+
+- Correct perl license
+  According to https://dev.perl.org/licenses/ perl is licensed under the
+  artistic license or the GPL 1.0 or later
+
+-------------------------------------------------------------------
+Tue Oct 27 11:38:55 CET 2020 - mls@suse.de
+
+- update to perl-5.32.0
+  * new experimental infix "isa" operator
+  * support of unicode 13.0
+  * chained comparisons capability
+- updated patches:
+  * perl-HiRes.t-timeout.diff
+  * posix-sigaction.patch
+  * perl-fix2020.patch
+  * perl-reproducible2.patch
+  * perl_skip_flaky_tests_powerpc.patch
+
+-------------------------------------------------------------------
+Fri Sep 11 15:35:00 UTC 2020 - Dirk Mueller <dmueller@suse.com>
+
+- update to 5.30.3 (bsc#1171863, bsc#1171864, bsc#1171866):
+  * https://perldoc.perl.org/5.30.3/perl5302delta.html
+  * https://perldoc.perl.org/5.30.3/perldelta.html
+  * fixes [CVE-2020-10543] buffer overflow caused by a crafted
+    regular expression
+  * fixes [CVE-2020-10878] integer overflow via malformed bytecode
+    produced by a crafted regular expression
+  * fixes [CVE-2020-12723] buffer overflow caused by a crafted
+    regular expression
+- dropped patches:
+  * perl-Adapt-Configure-to-GCC-version-10.patch
+ 
+-------------------------------------------------------------------
+Wed Aug  5 09:19:11 UTC 2020 - Thorsten Kukuk <kukuk@suse.com>
+
+- Move macros.perl to /usr/lib/rpm/macros.d
+
+-------------------------------------------------------------------
+Fri Jun  5 11:54:19 UTC 2020 - Callum Farmer <callumjfarmer13@gmail.com>
+
+- Fixes for %_libexecdir changing to /usr/libexec
+
+-------------------------------------------------------------------
+Mon Dec  9 13:50:36 UTC 2019 - Jan Baier <jbaier@suse.com>
+
+- Fix incorrect prefix removal in rpm macro %perl_gen_filelist (boo#1152247)
+
+-------------------------------------------------------------------
+Tue Dec  3 09:13:07 UTC 2019 - Martin Liška <mliska@suse.cz>
+
+- Add perl-Adapt-Configure-to-GCC-version-10.patch in order
+  to fix boo#1158254.
+
+-------------------------------------------------------------------
+Tue Nov 19 14:25:46 CET 2019 - mls@suse.de
+
+- update to perl-5.30.1
+  * unicode 12.1 is supported
+  * turkic UTF-8 locales are now seamlessly supported
+  * assigning non-zero to $[ is fatal
+  * some formerly deprecated uses of an unescaped left brace "{" in
+    regular expression patterns are now illegal
+  * previously deprecated sysread()/syswrite() on :utf8 handles is 
+    now fatal
+  * my() in false conditional prohibited
+  * remove File::Glob::glob()
+  * various performance enhancements
+- updated patches:
+  * perl-5.22.0_wrong_rpm_provides.diff
+  * perl-gdbm-test-no-mmap.diff
+  * perl-fix2020.patch
+  * perl-reproducible2.patch
+- dropped patches:
+  * perl-revert-caretx.diff
+  * perl-regexp-refoverflow.diff
+
+-------------------------------------------------------------------
+Thu Jun 20 12:05:41 UTC 2019 - Martin Liška <mliska@suse.cz>
+
+- Disable LTO (boo#1138837).
+
+-------------------------------------------------------------------
+Wed Jan 23 23:01:19 UTC 2019 - Bernhard Wiedemann <bwiedemann@suse.com>
+
+- Add perl-fix2020.patch to fix timelocal calls in 2020 (boo#1102840)
+- Add perl-reproducible2.patch to make build reproducible in spite of ASLR
+
+-------------------------------------------------------------------
+Fri Nov 30 14:12:53 CET 2018 - mls@suse.de
+
+- update to perl-5.28.1
+  * [CVE-2018-18311] Integer overflow leading to buffer overflow
+  * [CVE-2018-18312] Heap-buffer-overflow write in S_regatom
+  * updated Module::CoreList module
+
+-------------------------------------------------------------------
+Tue Oct  2 13:03:27 CEST 2018 - mls@suse.de
+
+- simplify perl_gen_filelist macro
+
+-------------------------------------------------------------------
+Fri Sep 28 16:06:46 CEST 2018 - mls@suse.de
+
+- fix testing fatal errors in gdbm
+  new patch: perl-gdbm-test-no-mmap.diff
+- fix perl no longer setting $^X if /proc is not mounted
+  new patch: perl-revert-caretx.diff
+
+-------------------------------------------------------------------
+Wed Sep 26 15:01:32 CEST 2018 - mls@suse.de
+
+- change the perl_gen_filelist macro so that the modules no
+  longer own the perl_vendorarch directory [bnc#1109754]
+
+-------------------------------------------------------------------
+Sat Sep 22 19:22:29 UTC 2018 - Dirk Stoecker <opensuse@dstoecker.de>
+
+- update to perl-5.28.0
+ * Core Enhancements
+  * Unicode 10.0 is supported
+  * delete on key/value hash slices
+  * Experimentally, there are now alphabetic synonyms for some regular expression assertions
+  * Mixed Unicode scripts are now detectable
+  * In-place editing with perl -i is now safer
+  * Initialisation of aggregate state variables
+  * Full-size inode numbers
+  * The sprintf %j format size modifier is now available with pre-C99 compilers
+  * Close-on-exec flag set atomically
+  * String- and number-specific bitwise ops are no longer experimental
+  * Locales are now thread-safe on systems that support them
+  * New read-only predefined variable ${^SAFE_LOCALES}
+ * Security
+  * [CVE-2017-12837] Heap buffer overflow in regular expression compiler
+  * [CVE-2017-12883] Buffer over-read in regular expression parser
+  * [CVE-2017-12814] $ENV{$key} stack buffer overflow on Windows
+  * Default Hash Function Change
+ * Full list of changes: https://metacpan.org/pod/release/XSAWYERX/perl-5.28.0/pod/perldelta.pod
+- update perl-5.26.0.dif to perl-5.28.0.dif
+- drop patch perl-pp-crypt.patch (included upstream)
+
+-------------------------------------------------------------------
+Tue Sep 18 14:14:34 UTC 2018 - schwab@suse.de
+
+- perl-pp-crypt.patch: fix incompatibility with libxcrypt (bsc#1107973)
+
+-------------------------------------------------------------------
+Wed May 23 14:12:11 CEST 2018 - mls@suse.de
+
+- make perl-5.26.2 compatible with perl-5.26.1
+
+-------------------------------------------------------------------
+Mon May 14 14:50:11 UTC 2018 - tchvatal@suse.com
+
+- Update versions based on provides in perl rpm
+
+-------------------------------------------------------------------
+Fri May 11 11:34:29 UTC 2018 - tchvatal@suse.com
+
+- Version update to perl-5.26.2:
+  * Tons of bugfixes
+
+-------------------------------------------------------------------
+Fri May 11 09:33:27 UTC 2018 - tchvatal@suse.com
+
+- Remove the as-needed disabling as no other distro is doing that
+- Use macros where possible
+- Remove if0 and commented out code to reduce the scope
+- Run tests in threads
+
+-------------------------------------------------------------------
+Thu Feb 22 15:10:43 UTC 2018 - fvogt@suse.com
+
+- Use %license (boo#1082318)
+
+-------------------------------------------------------------------
+Mon Jan 22 10:25:12 UTC 2018 - schwab@suse.de
+
+- posix-sigaction.patch: make sure Perl_sighandler is always installed
+  with SA_SIGINFO (bsc#1064697)
+
+-------------------------------------------------------------------
+Wed Jan 10 11:57:01 UTC 2018 - normand@linux.vnet.ibm.com
+
+- ignore make check transient errors for PowerPC
+  that are reported since 20170907
+  bypass boo#1063176
+  new patch: perl_skip_flaky_tests_powerpc.patch
+
+-------------------------------------------------------------------
+Mon Dec  4 17:50:10 UTC 2017 - bwiedemann@suse.com
+
+- Add perl-reproducible.patch to make build reproducible (boo#1047218)
+
+-------------------------------------------------------------------
+Thu Nov 23 13:43:59 UTC 2017 - rbrown@suse.com
+
+- Replace references to /var/adm/fillup-templates with new 
+  %_fillupdir macro (boo#1069468)
+
+-------------------------------------------------------------------
+Sat Sep 23 10:40:59 UTC 2017 - coolo@suse.com
+
+- update to perl-5.26.1
+ * [CVE-2017-12837] Heap buffer overflow in regular expression compiler
+ * [CVE-2017-12883] Buffer over-read in regular expression parser
+ * tons of bug fixes
+- update list of obsoletes
+
+-------------------------------------------------------------------
+Wed Aug 30 14:44:49 CEST 2017 - mls@suse.de
+
+- update to perl-5.26.0
+  * "." no longer in @INC
+  * "do" may now warn
+  * regexp: a literal left brace "{" should be escaped
+  * lexical subroutines are no longer experimental
+  * indented Here-documents
+  * new regular expression modifier /xx
+  * declaring a reference to a variable
+  * unicode 9.0 is now supported
+  * new Hash Function For 64-bit Builds
+- rename perl-5.24.0.dif to perl-5.26.0.dif
+- remove obsolete perl-avoid-warnings.patch
+- remove obsolete Compress-Raw-Zlib-2.071-zlib-1.2.11.patch
+
+-------------------------------------------------------------------
+Thu May 18 13:36:24 UTC 2017 - tchvatal@suse.com
+
+- Remove patch from previous commit, does not work:
+  * Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch
+- Add patch taken from upstream release instead:
+  * Compress-Raw-Zlib-2.071-zlib-1.2.11.patch
+
+-------------------------------------------------------------------
+Wed May 10 13:52:26 UTC 2017 - mpluskal@suse.com
+
+- Fix building with zlib-1.2.10 (RT#119762):
+  * Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch
+
+-------------------------------------------------------------------
+Wed May  3 13:51:56 UTC 2017 - coolo@suse.com
+
+- Update to perl-5.24.1
+
+  -Di switch is now required for PerlIO debugging output
+    Previously PerlIO debugging output would be sent to the file specified
+    by the "PERLIO_DEBUG" environment variable if perl wasn't running setuid
+    and the -T or -t switches hadn't been parsed yet.
+
+    If perl performed output at a point where it hadn't yet parsed its
+    switches this could result in perl creating or overwriting the file
+    named by "PERLIO_DEBUG" even when the -T switch had been supplied.
+
+    Perl now requires the -Di switch to produce PerlIO debugging output. By
+    default this is written to "stderr", but can optionally be redirected to
+    a file by setting the "PERLIO_DEBUG" environment variable.
+
+    If perl is running setuid or the -T switch was supplied "PERLIO_DEBUG"
+    is ignored and the debugging output is sent to "stderr" as for any other
+    -D switch.
+
+  Core modules and tools no longer search "." for optional modules
+    The tools and many modules supplied in core no longer search the default
+    current directory entry in @INC for optional modules. For example,
+    Storable will remove the final "." from @INC before trying to load
+    Log::Agent.
+
+    This prevents an attacker injecting an optional module into a process
+    run by another user where the current directory is writable by the
+    attacker, e.g. the /tmp directory.
+
+- Refresh patches
+
+-------------------------------------------------------------------
+Sun Jun 26 08:45:05 UTC 2016 - schwab@suse.de
+
+- Move parent.pm to perl-base, used by File::Temp
+
+-------------------------------------------------------------------
+Thu Jun  2 08:47:48 UTC 2016 - idonmez@suse.com
+
+- Add perl-avoid-warnings.patch to fix a warning in cop.h, which
+  breaks perf build due to -Werror. Already upstream.
+
+-------------------------------------------------------------------
+Tue May 10 15:27:33 CEST 2016 - mls@suse.de
+
+- Update to perl-5.24.0
+  * postfix dereferencing is no longer experimental
+  * unicode 8.0 is now supported
+  * perl will now croak when closing an in-place output file fails
+  * new "\b{lb}" boundary in regular expressions
+  * qr/(?[ ])/" now works in UTF-8 locales
+  * integer shift ("<<" and ">>") now more explicitly defined
+  * printf and sprintf now allow reordered precision arguments
+  * more fields provided to "sigaction" callback with "SA_SIGINFO"
+  * hashbang redirection to Perl 6
+  * set proper umask before calling mkstemp(3)
+  * fix loss of taint in canonpath
+  * remove duplicate environment variables from "environ"
+- rename patch perl-5.22.0.dif to perl-5.24.0.dif
+
+-------------------------------------------------------------------
+Fri Feb 12 13:04:14 UTC 2016 - idonmez@suse.com
+
+- Update to perl-5.22.1
+  * Several bugs, including a segmentation fault, have been fixed
+    with the bounds checking constructs (introduced in Perl 5.22)
+  * Module::CoreList has been upgraded from version 5.20150520 to 
+    5.20151213.
+  * PerlIO::scalar has been upgraded from version 0.22 to 0.23.
+  * POSIX has been upgraded from version 1.53 to 1.53_01.
+  * Storable has been upgraded from version 2.53 to 2.53_01.
+  * warnings has been upgraded from version 1.32 to 1.34.
+  * See perldelta.pod for all the changes.
+- Update perl-5.22.0.dif stop patching CPAN.pm, it was MacOS only
+  and was breaking tests (due to SHA-1 mismatch).
+
+-------------------------------------------------------------------
+Thu Jan  7 16:12:11 UTC 2016 - bwiedemann@suse.com
+
+- fix perl_gen_filelist macro to not fail on foo.1 man page
+
+-------------------------------------------------------------------
+Mon Dec  7 16:58:56 UTC 2015 - opensuse@dstoecker.de
+
+- prevent bad RPM provides for Math::BigInt and DB
+  (patch file perl-5.22.0_wrong_rpm_provides.diff)
+
+-------------------------------------------------------------------
+Mon Jun 22 06:47:41 UTC 2015 - dimstar@opensuse.org
+
+- Reformat baselibs.conf.
+
+-------------------------------------------------------------------
+Tue Jun  9 15:24:45 UTC 2015 - hsk@imb-jena.de
+
+- update to perl-5.22.0
+  * several new experimental features
+  * new <<>> (double-diamond) operator
+  * new "\b" boundaries in REs, w.r.t. Unicode
+  * non-capturing RE flag "/n"
+  * Unicode 7.0
+  * "defined(@array)", "defined(%hash)" are now fatal
+  * unescaped literal "{" in a pattern results in deprecation warning
+  * several modules updated
+  * modules CGI, Module::Build no longer included
+  * for a complete list of changes see perldelta.pod
+- perl-5.20.0.dif changed to fit 5.22.0, and renamed to perl-5.22.0.dif
+- changed patches to fit 5.22.0: perl-5.18.2-overflow.diff,
+  perl-netcmdutf8.diff, perl-regexp-refoverflow.diff,
+  perl-saverecontext.diff
+- dropped patches (now upstream): DataDumper-no-infinite-recursion.diff,
+  perl-5.20.2-Fix-Errno.pm-generation-for-gcc-5.0.patch,
+  perl-5.21.8-h2ph-correct-handling-of-hex-constants-for-the-pream.patch,
+  perl-5.21.8-lib-h2ph.t-to-test-generated-t-_h2ph_pre.ph-instead-.patch
+  
+-------------------------------------------------------------------
+Mon Feb 23 13:13:16 UTC 2015 - idonmez@suse.com
+
+- Add multiple patches for gcc5 support, tracked by RT#123784
+  * perl-5.20.2-Fix-Errno.pm-generation-for-gcc-5.0.patch
+  * perl-5.21.8-h2ph-correct-handling-of-hex-constants-for-the-pream.patch
+  * perl-5.21.8-lib-h2ph.t-to-test-generated-t-_h2ph_pre.ph-instead-.patch
+
+-------------------------------------------------------------------
+Thu Feb  5 07:44:14 UTC 2015 - coolo@suse.com
+
+- use rm with -f to avoid prompts for rpmbuild in terminals
+
+-------------------------------------------------------------------
+Wed Sep 17 14:22:41 CEST 2014 - mls@suse.de
+
+- update to perl-5.20.1
+  * some performance improvements and bug fixes
+  * utf8, version, File::Copy, Exporter and other modules
+  have been updated
+- fix infinite recursion in Data::Dumper [bnc#896715]
+  new patch: DataDumper-no-infinite-recursion.diff
+
+-------------------------------------------------------------------
+Sun Jun  8 12:13:23 UTC 2014 - coolo@suse.com
+
+- fix some obsoletes
+
+-------------------------------------------------------------------
+Mon Jun  2 16:50:44 CEST 2014 - mls@suse.de
+
+- update to perl-5.20.0
+  * experimental subroutine signatures
+  * new slice syntax
+  * experimental postfix dereferencing
+  * unicode 6.3 support
+  * better 64-bit support
+  * do" can no longer be used to call subroutines
+  * tainting now conforms to documentation
+  * performance enhancements
+  * multiple modules updated to current version
+- perl-5.18.0.dif renamed to perl-5.20.0.dif
+- dropped patches: perl-db6.diff, perl-gracefull-net-ftp.diff,
+  perl-threads.t-timeout.diff
+
+-------------------------------------------------------------------
+Mon Apr  7 16:43:51 CEST 2014 - mls@suse.de
+
+- move English.pm into perl-base [bnc#869736]
+
+-------------------------------------------------------------------
+Tue Mar 25 11:06:56 UTC 2014 - rguenther@suse.com
+
+- perl-5.18.2-overflow.diff: avoid undefined overflow in S_sv_2iuv_common
+
+-------------------------------------------------------------------
+Sat Jan 18 19:08:31 UTC 2014 - schwab@suse.de
+
+- perl-threads.t-timeout.diff: increase timeout in t/op/threads.t
+
+-------------------------------------------------------------------
+Wed Jan  8 15:11:45 CET 2014 - mls@suse.de
+
+- update to perl-5.18.2
+  * updates for the B::Concise, English, File::Glob modules
+  * a lexical subs regression has been fixed
+  * a regression when using SUPER with AUTOLOAD has been fixed
+  * a buffer overflow with very long identifiers has been fixed
+  * some other minor bug fixes
+- perl-reg89.diff is no longer needed
+
+-------------------------------------------------------------------
+Wed Sep  4 10:30:50 CEST 2013 - mls@suse.de
+
+- add libperl_requires macro
+
+-------------------------------------------------------------------
+Tue Sep  3 15:30:23 CEST 2013 - mls@suse.de
+
+- update to perl-5.18.1
+  * B has been upgraded from 1.42 to 1.42_01
+  * Digest::SHA has been upgraded from 5.84 to 5.84_01
+  * Module::CoreList has been upgraded from 2.89 to 2.96
+  * A number of memory leaks in regexp have been plugged
+  * The debugger's man command been fixed
+  * @_ is now correctly visible in the debugger
+  * Lexical constants no longer crash when inlined
+  * Deep recursion warnings no longer crash lexical subroutines
+- backport backref fix from upstream
+- fix INC containing directories multiple times
+
+-------------------------------------------------------------------
+Thu Aug  8 14:51:42 UTC 2013 - dvaleev@suse.com
+
+- skip itimer test from Timer-HiRes for powerpc. Build hosts
+  are overloaded, building locally shows tests are passed
+  (skip_time_hires.patch) 
+
+-------------------------------------------------------------------
+Fri Jun 14 22:51:27 UTC 2013 - jengelh@inai.de
+
+- Add perl-db6.diff to bring the DB_File module up to version 1.828
+  where it supports building with libdb-6.0.
+
+-------------------------------------------------------------------
+Tue Jun 11 11:49:17 UTC 2013 - coolo@suse.com
+
+- moving the provides of perl-macros to perl-doc so we can check
+  for duplicated man pages in the gen_filelist macro
+
+-------------------------------------------------------------------
+Tue Jun 11 04:31:59 UTC 2013 - coolo@suse.com
+
+- obsolete perl-PathTools and other modules in core
+
+-------------------------------------------------------------------
+Thu Jun  6 15:21:34 CEST 2013 - mls@suse.de
+
+- update to 5.18.0
+  * new handling of experimental features
+  * new hash functions to improve security
+  * better hash randomization
+  * upgrade to Unicode 6.2
+  * support for computed labels
+  * vertical tabs are now whitespace
+  * smartmatch is experimental again
+  * lots of bug fixes
+- change perl_requires macro to use MODULE_COMPAT form
+
+-------------------------------------------------------------------
+Mon May 20 19:02:09 UTC 2013 - schwab@suse.de
+
+- Disable testsuite only on qemu user space build
+
+-------------------------------------------------------------------
+Fri Nov 16 08:41:10 UTC 2012 - coolo@suse.com
+
+- update to 5.16.2
+ * <Module::CoreList> has been upgraded from version 2.70 to version 2.76
+ 
+  Perl 5.16.2 represents approximately 2 months of development since Perl
+  5.16.1 and contains approximately 740 lines of changes across 20 files
+  from 9 authors.
+
+-------------------------------------------------------------------
+Wed Nov 14 19:02:24 UTC 2012 - opensuse@dstoecker.de
+
+- fix version for Module::Build obsoletes, so installing newer version is possible
+
+-------------------------------------------------------------------
+Tue Sep  4 13:05:25 UTC 2012 - coolo@suse.com
+
+- update to 5.16.1
+ * an off-by-two error in Scalar-List-Util has been fixed
+ * many perl modules updated
+
+-------------------------------------------------------------------
+Tue Jun 12 05:58:13 UTC 2012 - coolo@suse.com
+
+- update perl-base file list
+
+-------------------------------------------------------------------
+Wed May 30 07:44:16 UTC 2012 - coolo@suse.com
+
+- provide a higher version for Module::Build to calm down rpm
+
+-------------------------------------------------------------------
+Wed May 23 15:09:25 CEST 2012 - mls@suse.de
+
+- update to 5.16.0
+  * new __SUB__ token to reference current sub
+  * more consistent eval
+  * ties can now be weakended
+  * supports (almost) unicode 6.1
+  * proper supports for unicode in symbol names
+  * new foldcase function fc()
+  * continue no longer requires the switch feature
+  * removed LinuxThreads hack for $$ and getppid
+  * performance optimizations
+
+-------------------------------------------------------------------
+Mon Apr  2 11:08:47 UTC 2012 - coolo@suse.com
+
+- correct license statement
+
+-------------------------------------------------------------------
+Fri Jan 13 14:50:25 CET 2012 - mls@suse.de
+
+- bring back NDBM_File [bnc#732929]
+
+-------------------------------------------------------------------
+Tue Oct 25 15:20:26 CEST 2011 - mls@suse.de
+
+- update to 5.14.2
+  * calling bsd_glob with GLOB_ALTDIRFUNC no longer segfaults
+  * a heap overflow in decode_xs was fixed
+  * a memory leak in caller() was fixed
+  * modules were updated to their latest version
+  * several other bug fixes, see perldelta
+
 -------------------------------------------------------------------
 Fri Jun 17 11:18:09 CEST 2011 - mls@suse.de
 
@@ -101,7 +910,7 @@ Wed Jul 28 11:45:46 CEST 2010 - mls@suse.de
 - fix h2ph so that _h2ph_pre.ph doesn't lead to warnings
 - do not add vendorlib/auto to filelist [bnc#624628]
 
-------------------------------------------------------------------
+-------------------------------------------------------------------
 Mon Jun 28 06:38:35 UTC 2010 - jengelh@medozas.de
 
 - use %_smp_mflags
@@ -970,7 +1779,6 @@ Thu Jan 22 19:22:53 MET 1998 - florian@suse.de
 Tue Nov 11 19:46:21 MET 1997 - florian@suse.de
 
 - fixed file list
-
 - update to perl 5.004_04
 
 -------------------------------------------------------------------
@@ -979,27 +1787,23 @@ Tue Oct 14 12:47:35 MEST 1997 - ro@suse.de
 - ready for autobuild
   updated file list
 
-----------------------------------------------------------------------------
+-------------------------------------------------------------------
 Thu Oct  9 19:08:47 MEST 1997 - florian@suse.de
 
 - prepare for autobuild
 
-----------------------------------------------------------------------------
+-------------------------------------------------------------------
 Tue May 20 14:10:37 MEST 1997 - florian@suse.de
 
-
 - update to version 5.004
-
 - disable hooks to csh in perl, it is not installed on all systems
 
-
-----------------------------------------------------------------------
+-------------------------------------------------------------------
 Mon Nov  4 01:59:08 CET 1996 - bs@suse.de
 
-
 h2ph call in doinst.sh added.
 
-----------------------------------------------------------------------
+-------------------------------------------------------------------
 Sun Aug 25 19:28:50 MET DST 1996 - florian@suse.de
 
 update to version 5.003

perl.spec

@@ -1,7 +1,7 @@
 #
-# spec file for package perl
+# spec file
 #
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2025 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -12,66 +12,66 @@
 # license that conforms to the Open Source Definition (Version 1.9)
 # published by the Open Source Initiative.
 
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
 #
 
-# icecream 0
 
+%define flavor @BUILD_FLAVOR@%{nil}
+%if "%{?flavor}" != "" && "%{?flavor}" != ("@BUILD_" + "FLAVOR@")
+%define name_suffix -%{flavor}
+%else
+%define name_suffix %{nil}
+%endif
 
-Name:           perl
+%define versionlist_provides() %{lua:for i, n in ipairs(arg) do ; print(" perl(:MODULE_COMPAT_"..n..")") ; end}
+
+%define pversion 5.42.0
+# set to nil when equal to pversion
+%global versionlist %nil
+Name:           perl%{?name_suffix}
+Version:        5.42.0
+Release:        0
 Summary:        The Perl interpreter
-Version:        5.14.1
-Release:        2
-%define pversion 5.14.1
-License:        Artistic License .. ; GPLv2+
+License:        Artistic-1.0 OR GPL-1.0-or-later
 Group:          Development/Languages/Perl
-AutoReqProv:    on
-Url:            http://www.perl.org/
-Source:         perl-5.14.1.tar.bz2
-Source1:        %name-rpmlintrc
+URL:            https://www.perl.org/
+Source:         https://www.cpan.org/src/5.0/perl-%{version}.tar.xz
+Source1:        perl-rpmlintrc
 Source2:        macros.perl
 Source3:        README.macros
 Source4:        baselibs.conf
-Patch0:         perl-%{pversion}.dif
-Patch1:         perl-gracefull-net-ftp.diff
-Patch2:         perl-regexp-refoverflow.diff
+Patch0:         perl-5.38.0.diff
 Patch3:         perl-nroff.diff
 Patch4:         perl-netcmdutf8.diff
 Patch5:         perl-HiRes.t-timeout.diff
 Patch6:         perl-saverecontext.diff
-Patch7:         perl-cbuilder-ccflags.diff
-BuildRoot:      %{_tmppath}/%{name}-%{version}-build
-PreReq:         perl-base = %version
-#PreReq:         %fillup_prereq
-BuildRequires:  db-devel gdbm-devel libbz2-devel ncurses-devel zlib-devel
-#Requires:       gzip	# needed in SuSEconfig.perl
-Suggests:       perl-doc = %version
-#
-%if "%version" != "%pversion"
-Provides:       perl = %pversion-%release
+# PATCH-FIX-OPENSUSE perl-5.22.0_wrong_rpm_provides.diff Prevent generating bad RPM provides
+Patch7:         perl-5.22.0_wrong_rpm_provides.diff
+Patch8:         skip_time_hires.patch
+Patch9:         perl-incfix.diff
+# PATCH-FIX-OPENSUSE prevent changing package when rebuilding
+Patch12:        perl-reproducible.patch
+# PATCH-FIX-OPENSUSE skip flaky tests powerpc as bypass https://bugzilla.suse.com/show_bug.cgi?id=1063176
+Patch13:        perl_skip_flaky_tests_powerpc.patch
+# PATCH-FIX-UPSTREAM unmerged https://www.nntp.perl.org/group/perl.perl5.porters/2018/12/msg253240.html
+Patch18:        perl-reproducible2.patch
+Patch20:        perl-fixed-uname.patch
+BuildRequires:  gdbm-devel
+BuildRequires:  libbz2-devel
+BuildRequires:  ncurses-devel
+# For t/op/magic and dist/threads/t/join - but because perl is a bootstrap package don't use it
+#BuildRequires:  procps
+BuildRequires:  xz
+BuildRequires:  zlib-devel
+Requires:       perl-base = %{version}
+Suggests:       perl-doc = %{version}
+Provides:       perl(:MODULE_COMPAT_%{pversion})
+%if "%{versionlist}" != ""
+Provides:       %{versionlist_provides %{versionlist}}
+%endif
+%if "%{version}" != "%{pversion}"
+Provides:       perl = %{pversion}-%{release}
 %endif
-Provides:       perl(:MODULE_COMPAT_%pversion)
-Provides:       perl-500
-Provides:       perl-macros
-Obsoletes:      perl-macros
-Provides:       perl-Filter-Simple perl-I18N-LangTags perl-MIME-Base64 perl-Storable
-Provides:       perl-Test-Simple = 0.98-%{release}
-Obsoletes:      perl-Filter-Simple perl-I18N-LangTags perl-MIME-Base64 perl-Storable
-Obsoletes:      perl-Test-Simple < 0.98
-Provides:       perl-Text-Balanced perl-Time-HiRes perl-libnet
-Obsoletes:      perl-Text-Balanced perl-Time-HiRes perl-libnet
-Provides:       perl-Compress-Zlib perl-Compress-Raw-Zlib
-Obsoletes:      perl-Compress-Zlib perl-Compress-Raw-Zlib
-Provides:       perl-IO-Zlib perl-IO-Compress-Base perl-IO-Compress-Zlib
-Obsoletes:      perl-IO-Zlib perl-IO-Compress-Base perl-IO-Compress-Zlib
-Provides:       perl-Archive-Tar perl-Module-Build
-Obsoletes:      perl-Archive-Tar perl-Module-Build
-Provides:       perl-Locale-Maketext-Simple perl-Module-Pluggable
-Obsoletes:      perl-Locale-Maketext-Simple perl-Module-Pluggable
-Provides:       perl-Pod-Escapes perl-Pod-Simple
-Obsoletes:      perl-Pod-Escapes perl-Pod-Simple
-Provides:       perl-version perl-ExtUtils-ParseXS
-Obsoletes:      perl-version perl-ExtUtils-ParseXS
 
 %description
 perl - Practical Extraction and Report Language
@@ -86,18 +86,15 @@ Some of the modules available on CPAN can be found in the "perl"
 series.
 
 %package base
-License:        Artistic License .. ; GPLv2+
-Group:          Development/Languages/Perl
 Summary:        The Perl interpreter
-Provides:       perl-Digest perl-Digest-MD5
-%if "%version" != "%pversion"
-Provides:       perl-base = %pversion-%release
+Group:          Development/Languages/Perl
+Provides:       perl-Digest
+Provides:       perl-Digest-MD5 = 2.55
+%if "%{version}" != "%{pversion}"
+Provides:       perl-base = %{pversion}-%{release}
 %endif
-# bug437293
-%ifarch ppc64
-Obsoletes:      perl-64bit
-%endif
-#
+# manual provides until we finally switch to the new versions system
+Provides:       perl(Getopt::Long) = 2.570.0
 
 %description base
 perl - Practical Extraction and Report Language
@@ -113,70 +110,86 @@ This package contains only some basic modules and the perl binary
 itself.
 
 %package doc
-License:        Artistic License .. ; GPLv2+
-Group:          Development/Languages/Perl
 Summary:        Perl Documentation
+Group:          Development/Languages/Perl
 Requires:       perl = %{version}
-Provides:       perl:/usr/share/man/man3/CORE.3pm.gz
-%if 0%{?suse_version} >= 1120
+Provides:       perl-macros = 2.0
+Provides:       perl:%{_mandir}/man3/CORE.3pm.gz
+Obsoletes:      perl-macros < 2.0
 BuildArch:      noarch
-%endif
 
 %description doc
 Perl man pages and pod files.
 
 %prep
-%setup -q -n perl-5.14.1
-cp -p %{S:3} .
-%patch0
-%patch1
-%patch2
-%patch3
-%patch4
-%patch5
-%patch6
-%patch7
+%setup -q -n perl-%{pversion}
+cp -p %{SOURCE3} .
+%patch -P 0
+%patch -P 3
+%patch -P 4
+%patch -P 5
+%patch -P 6
+%patch -P 7
+%ifarch ppc ppc64 ppc64le
+%patch -P 8 -p1
+%patch -P 13
+%endif
+%patch -P 9 -p1
+%patch -P 12 -p1
+%patch -P 18
+%patch -P20 -p1
 
 %build
+%define _lto_cflags %{nil}
 cp -a lib savelib
-export SUSE_ASNEEDED=0
 export BZIP2_LIB=%{_libdir}
 export BZIP2_INCLUDE=%{_includedir}
 export BUILD_BZIP2=0
-options="-Doptimize='$RPM_OPT_FLAGS -Wall -pipe'"
+options="-Doptimize='%{optflags} -Wall -pipe'"
 %ifarch alpha
 # -mieee needed for bad alpha gcc optimization
-options="-Doptimize='$RPM_OPT_FLAGS -Wall -pipe -mieee'"
+options="-Doptimize='%{optflags} -Wall -pipe -mieee'"
 %endif
-%ifarch ppc ppc64
+# Use 64-bit integers everywhere
 options="$options -Duse64bitint"
-%endif
-# always use glibc's setenv
-options="$options -Accflags='-DPERL_USE_SAFE_PUTENV'"
-options="$options -Dotherlibdirs=/usr/lib/perl5/site_perl"
+# this needs an installed perl, sorry
+archname=%(perl -V:archname | sed "s!.*='!!;s!'.*!!")
+test -n "$archname"
+versionlist=
+for v in %{?versionlist} ; do
+  test "$v" == none || versionlist="$versionlist $v/$archname $v"
+done
+test -n "$versionlist" || versionlist=none
+versionlist=${versionlist# }
+options="$options -Dotherlibdirs=/usr/lib/perl5/site_perl -Dinc_version_list='$versionlist'"
 chmod 755 ./configure.gnu
-./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Duseshrplib=\'true\' $options
+./configure.gnu --prefix=%{_prefix} -Dvendorprefix=%{_prefix} -Dinstallusrbinperl -Dusethreads -Di_dbm -Di_ndbm -Di_gdbm -Dd_dbm_open -Duseshrplib=\'true\' $options
 make %{?_smp_mflags}
 cp -p libperl.so savelibperl.so
 cp -p lib/Config.pm saveConfig.pm
 cp -p lib/Config_heavy.pl saveConfig_heavy.pl
-make clean > /dev/null
-make clobber
+make -j1 clobber
 rm -rf lib
 mv savelib lib
-./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm $options
+./configure.gnu --prefix=%{_prefix} -Dvendorprefix=%{_prefix} -Dinstallusrbinperl -Dusethreads -Di_dbm -Di_ndbm -Di_gdbm -Dd_dbm_open $options
 make %{?_smp_mflags}
 
 %check
-%ifnarch %arm
-export SUSE_ASNEEDED=0
-make test
+%if 0%{?qemu_user_space_build}
+# Disable tests that are difficult to emulate
+echo 'print "1..0\n";' > t/op/fork.t
+echo 'print "1..0\n";' > t/op/magic.t
+%endif
+%if "%{name}" == "perl-testsuite"
+export TEST_JOBS="$(echo %{?_smp_mflags} | cut -c 3-)"
+make %{?_smp_mflags} test
 %endif
 
 %install
-make install DESTDIR=$RPM_BUILD_ROOT
-cp -a $RPM_BUILD_ROOT/usr/lib/perl5/site_perl $RPM_BUILD_ROOT/usr/lib/perl5/vendor_perl
-cpa=`echo $RPM_BUILD_ROOT/usr/lib/perl5/*/*/CORE | sed -e 's@/CORE$@@'`
+%if "%{name}" != "perl-testsuite"
+%make_install
+cp -a %{buildroot}/usr/lib/perl5/site_perl %{buildroot}/usr/lib/perl5/vendor_perl
+cpa=`echo %{buildroot}/usr/lib/perl5/*/*/CORE | sed -e 's@/CORE$@@'`
 cp=`echo "$cpa" | sed -e 's@/[^/]*$@@'`
 vpa=`echo $cpa | sed -e 's@/perl5/@/perl5/vendor_perl/@'`
 vp=`echo "$vpa" | sed -e 's@/[^/]*$@@'`
@@ -185,188 +198,141 @@ install -d $vpa/auto
 install -m 555 savelibperl.so $cpa/CORE/libperl.so
 install -m 444 saveConfig.pm $cpa/Config.pm
 install -m 444 saveConfig_heavy.pl $cpa/Config_heavy.pl
-#install -d $RPM_BUILD_ROOT/var/adm/SuSEconfig/bin
-#install -d $RPM_BUILD_ROOT/sbin/conf.d
-#install -d $RPM_BUILD_ROOT/var/adm/fillup-templates
-#install -m 755 SuSE/perllocal.SuSE $RPM_BUILD_ROOT/usr/lib/perl5
-#install -m 755 SuSE/SuSEconfig.perl $RPM_BUILD_ROOT/sbin/conf.d
-#install -m 755 SuSE/sysconfig.suseconfig-perl $RPM_BUILD_ROOT/var/adm/fillup-templates
 # install macros.perl file
-install -D -m 644 %{S:2} $RPM_BUILD_ROOT%{_sysconfdir}/rpm/macros.perl
-pushd /usr/include
-( rpm -ql glibc-devel | fgrep '.h' 
-  find /usr/include/asm/ -name \*.h
-  find /usr/include/asm-generic -name \*.h
-  find /usr/include/linux -name \*.h
+install -D -m 644 %{SOURCE2} %{buildroot}%{_rpmconfigdir}/macros.d/macros.perl
+cd %{_includedir}
+( rpm -ql glibc-devel | grep -F '.h'
+  find %{_includedir}/asm/ -name \*.h
+  find %{_includedir}/asm-generic -name \*.h
+  find %{_includedir}/linux -name \*.h
 ) | while read f; do
-  $RPM_BUILD_ROOT/usr/bin/perl -I$cp -I$cpa $RPM_BUILD_ROOT/usr/bin/h2ph -d $vpa ${f/\/usr\/include\//} || : 
+  %{buildroot}%{_bindir}/perl -I$cp -I$cpa %{buildroot}%{_bindir}/h2ph -d $vpa ${f/\/usr\/include\//} || :
 done
-popd
+cd -
 d="`gcc -print-file-name=include`"
-test -f "$d/stdarg.h" && (cd $d ; $RPM_BUILD_ROOT/usr/bin/perl -I$cp -I$cpa $RPM_BUILD_ROOT/usr/bin/h2ph -d $vpa stdarg.h stddef.h float.h)
+test -f "$d/stdarg.h" && (cd $d ; %{buildroot}%{_bindir}/perl -I$cp -I$cpa %{buildroot}%{_bindir}/h2ph -d $vpa stdarg.h stddef.h float.h)
 # remove broken pm - we don't have the module
-rm $RPM_BUILD_ROOT/usr/lib/perl5/*/Pod/Perldoc/ToTk.pm
+rm -f %{buildroot}/usr/lib/perl5/*/Pod/Perldoc/ToTk.pm
 # we don't need this in here
-rm $RPM_BUILD_ROOT/usr/lib/perl5/*/*/CORE/libperl.a
-#touch $RPM_BUILD_ROOT/usr/share/man/man3/perllocal.3pm
-#touch $cpa/perllocal.pod
+rm -f %{buildroot}/usr/lib/perl5/*/*/CORE/libperl.a
 # test CVE-2007-5116
-$RPM_BUILD_ROOT/usr/bin/perl -e '$r=chr(128)."\\x{100}";/$r/'
-# test perl-regexp-refoverflow.diff
-$RPM_BUILD_ROOT/usr/bin/perl -e '/\6666666666/'
-%if 0
-# remove unrelated target/os manpages
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlaix.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlamiga.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlapollo.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlbeos.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlbs2000.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlcygwin.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perldgux.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perldos.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlepoc.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlfreebsd.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlhpux.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlhurd.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlirix.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlmachten.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlmacos.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlmacosx.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlmint.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlnetware.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlopenbsd.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlos2.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlos390.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlos400.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlplan9.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlqnx.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlsolaris.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perltru64.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perluts.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlvmesa.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlvms.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlvos.1*
-rm $RPM_BUILD_ROOT/usr/share/man/man1/perlwin32.1*
-%endif
+%{buildroot}%{_bindir}/perl -e '$r=chr(128)."\\x{100}";/$r/'
+# test perl-regexp-refoverflow.diff, should not crash or hang
+%{buildroot}%{_bindir}/perl -e 'eval "/\\6666666666/"'
 cat << EOF > perl-base-filelist
-/usr/lib/perl5/%pversion/B/Deparse.pm
-/usr/lib/perl5/%pversion/Carp.pm
-/usr/lib/perl5/%pversion/Carp/
-/usr/lib/perl5/%pversion/Class/
-/usr/lib/perl5/%pversion/Config/
-/usr/lib/perl5/%pversion/Digest.pm
-/usr/lib/perl5/%pversion/Digest/
-/usr/lib/perl5/%pversion/Exporter.pm
-/usr/lib/perl5/%pversion/Exporter/
-/usr/lib/perl5/%pversion/File/
-/usr/lib/perl5/%pversion/Getopt/
-/usr/lib/perl5/%pversion/IPC/
-/usr/lib/perl5/%pversion/Text/
-/usr/lib/perl5/%pversion/Tie/Hash.pm
-/usr/lib/perl5/%pversion/XSLoader.pm
-/usr/lib/perl5/%pversion/warnings.pm
-/usr/lib/perl5/%pversion/warnings/
-/usr/lib/perl5/%pversion/AutoLoader.pm
-/usr/lib/perl5/%pversion/FileHandle.pm
-/usr/lib/perl5/%pversion/SelectSaver.pm
-/usr/lib/perl5/%pversion/Symbol.pm
-/usr/lib/perl5/%pversion/base.pm
-/usr/lib/perl5/%pversion/bytes.pm
-/usr/lib/perl5/%pversion/bytes_heavy.pl
-/usr/lib/perl5/%pversion/constant.pm
-/usr/lib/perl5/%pversion/fields.pm
-/usr/lib/perl5/%pversion/feature.pm
-/usr/lib/perl5/%pversion/integer.pm
-/usr/lib/perl5/%pversion/locale.pm
-/usr/lib/perl5/%pversion/overload.pm
-/usr/lib/perl5/%pversion/strict.pm
-/usr/lib/perl5/%pversion/utf8.pm
-/usr/lib/perl5/%pversion/utf8_heavy.pl
-/usr/lib/perl5/%pversion/vars.pm
-/usr/lib/perl5/%pversion/version.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Data/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Digest/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/File/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/List/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Scalar/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Dir.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/File.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Handle.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Pipe.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Poll.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Seekable.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Select.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Socket.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Socket/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/B.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Config.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Config_heavy.pl
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Cwd.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/DynaLoader.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Errno.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Fcntl.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/POSIX.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/Socket.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/attributes.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Data/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Digest/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Fcntl/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/File/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/IO/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/List/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Cwd/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Socket/
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/POSIX.bs
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/POSIX.so
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/autosplit.ix
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/load_imports.al
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/lib.pm
-/usr/lib/perl5/%pversion/*-linux-thread-multi*/re.pm
+/usr/lib/perl5/%{pversion}/B/Deparse.pm
+/usr/lib/perl5/%{pversion}/Carp.pm
+/usr/lib/perl5/%{pversion}/Carp/
+/usr/lib/perl5/%{pversion}/Class/
+/usr/lib/perl5/%{pversion}/Config/
+/usr/lib/perl5/%{pversion}/Digest.pm
+/usr/lib/perl5/%{pversion}/Digest/
+/usr/lib/perl5/%{pversion}/English.pm
+/usr/lib/perl5/%{pversion}/Exporter.pm
+/usr/lib/perl5/%{pversion}/Exporter/
+/usr/lib/perl5/%{pversion}/File/
+/usr/lib/perl5/%{pversion}/Getopt/
+/usr/lib/perl5/%{pversion}/IPC/
+/usr/lib/perl5/%{pversion}/Text/
+/usr/lib/perl5/%{pversion}/Tie/Hash.pm
+/usr/lib/perl5/%{pversion}/XSLoader.pm
+/usr/lib/perl5/%{pversion}/warnings.pm
+/usr/lib/perl5/%{pversion}/warnings/
+/usr/lib/perl5/%{pversion}/AutoLoader.pm
+/usr/lib/perl5/%{pversion}/FileHandle.pm
+/usr/lib/perl5/%{pversion}/SelectSaver.pm
+/usr/lib/perl5/%{pversion}/Symbol.pm
+/usr/lib/perl5/%{pversion}/UNIVERSAL.pm
+/usr/lib/perl5/%{pversion}/base.pm
+/usr/lib/perl5/%{pversion}/builtin.pm
+/usr/lib/perl5/%{pversion}/bytes.pm
+/usr/lib/perl5/%{pversion}/constant.pm
+/usr/lib/perl5/%{pversion}/fields.pm
+/usr/lib/perl5/%{pversion}/feature.pm
+/usr/lib/perl5/%{pversion}/integer.pm
+/usr/lib/perl5/%{pversion}/locale.pm
+/usr/lib/perl5/%{pversion}/overload.pm
+/usr/lib/perl5/%{pversion}/overloading.pm
+/usr/lib/perl5/%{pversion}/parent.pm
+/usr/lib/perl5/%{pversion}/strict.pm
+/usr/lib/perl5/%{pversion}/utf8.pm
+/usr/lib/perl5/%{pversion}/vars.pm
+/usr/lib/perl5/%{pversion}/version.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Data/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Digest/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/File/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/List/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Scalar/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Dir.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/File.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Handle.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Pipe.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Poll.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Seekable.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Select.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Socket.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/IO/Socket/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/B.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Config.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Config_heavy.pl
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Cwd.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/DynaLoader.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Errno.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Fcntl.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/POSIX.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/Socket.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/attributes.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/Data/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/Digest/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/Fcntl/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/File/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/IO/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/List/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/Cwd/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/Socket/
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/POSIX/POSIX.so
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/lib.pm
+/usr/lib/perl5/%{pversion}/*-linux-thread-multi*/re.pm
 EOF
 {
   sed -e 's/^/%%exclude /' perl-base-filelist
-  (cd $RPM_BUILD_ROOT
+  (cd %{buildroot}
    for i in usr/lib/perl5/*/pod/*; do
      case $i in */perldiag.pod) ;;
      *) echo "%%exclude /$i" ;;
      esac
    done)
 } > perl-base-excludes
-#%%post
-#%%{fillup_only -an suseconfig}
+%endif
 
+%if "%{name}" == "perl"
 %files base -f perl-base-filelist
-%defattr(-,root,root)
+%license Copying Artistic
 %dir /usr/lib/perl5
-%dir /usr/lib/perl5/%pversion
-%dir /usr/lib/perl5/%pversion/B
-%dir /usr/lib/perl5/%pversion/*-linux-thread-multi*
-%dir /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto
-%dir /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX
-/usr/bin/perl
-/usr/bin/perl%pversion
-%doc /usr/share/man/man1/perl.1.gz
+%dir /usr/lib/perl5/%{pversion}
+%dir /usr/lib/perl5/%{pversion}/B
+%dir /usr/lib/perl5/%{pversion}/*-linux-thread-multi*
+%dir /usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto
+%dir /usr/lib/perl5/%{pversion}/*-linux-thread-multi*/auto/POSIX
+%{_bindir}/perl
+%{_bindir}/perl%{pversion}
+%{_mandir}/man1/perl.1%{?ext_man}
 
-%files -f perl-base-excludes 
-%defattr(-,root,root)
-%exclude /usr/bin/perl
-%exclude /usr/bin/perl%pversion
-/usr/bin/*
+%files -f perl-base-excludes
+%exclude %{_bindir}/perl
+%exclude %{_bindir}/perl%{pversion}
+%{_bindir}/*
 /usr/lib/perl5/*
-%config %{_sysconfdir}/rpm/macros.perl
-#/sbin/conf.d/SuSEconfig.perl
-#/var/adm/fillup-templates/sysconfig.suseconfig-perl
-#%ghost /usr/lib/perl*/*/*/perllocal.pod
-#%ghost %doc /usr/share/man/man3/perllocal.3pm.gz
+%{_rpmconfigdir}/macros.d/macros.perl
 
 %files doc
-%defattr(-,root,root)
 %doc README.macros
-%exclude /usr/share/man/man1/perl.1.gz
+%exclude %{_mandir}/man1/perl.1.gz
 %exclude /usr/lib/perl5/*/pod/perldiag.pod
-%doc /usr/share/man/man1/*
-%doc /usr/share/man/man3/*
+%{_mandir}/man1/*
+%{_mandir}/man3/*
 %doc /usr/lib/perl5/*/pod
+%endif
 
 %changelog

perl_skip_flaky_tests_powerpc.patch

@@ -0,0 +1,93 @@
+--- cpan/Memoize/t/expmod_t.t.orig	2023-05-26 01:05:34.000000000 +0000
++++ cpan/Memoize/t/expmod_t.t	2023-07-19 14:04:47.663312737 +0000
+@@ -1,4 +1,7 @@
+ use strict; use warnings;
++
++use Test::More skip_all => "ppc workers are too busy";
++
+ use Memoize;
+ use Memoize::Expire;
+ 
+--- dist/Time-HiRes/t/alarm.t.orig	2023-07-19 13:59:43.995753782 +0000
++++ dist/Time-HiRes/t/alarm.t	2023-07-19 14:00:51.687655436 +0000
+@@ -1,6 +1,6 @@
+ use strict;
+ 
+-use Test::More tests => 10;
++use Test::More skip_all => "ppc workers are too busy";
+ BEGIN { push @INC, '.' }
+ use t::Watchdog;
+ 
+--- dist/Time-HiRes/t/clock.t.orig	2023-07-19 13:59:43.995753782 +0000
++++ dist/Time-HiRes/t/clock.t	2023-07-19 14:00:51.687655436 +0000
+@@ -1,6 +1,6 @@
+ use strict;
+ 
+-use Test::More tests => 5;
++use Test::More skip_all => "ppc workers are too busy";
+ BEGIN { push @INC, '.' }
+ use t::Watchdog;
+ 
+--- dist/Time-HiRes/t/nanosleep.t.orig	2020-12-28 16:57:44.000000000 +0000
++++ dist/Time-HiRes/t/nanosleep.t	2023-07-19 14:00:51.687655436 +0000
+@@ -8,7 +8,7 @@ BEGIN {
+     }
+ }
+ 
+-use Test::More tests => 4;
++use Test::More skip_all => "ppc workers are too busy";
+ BEGIN { push @INC, '.' }
+ use t::Watchdog;
+ 
+--- dist/Time-HiRes/t/usleep.t.orig	2023-07-19 13:59:43.995753782 +0000
++++ dist/Time-HiRes/t/usleep.t	2023-07-19 14:00:51.687655436 +0000
+@@ -8,7 +8,7 @@ BEGIN {
+     }
+ }
+ 
+-use Test::More tests => 6;
++use Test::More skip_all => "ppc workers are too busy";
+ BEGIN { push @INC, '.' }
+ use t::Watchdog;
+ 
+--- t/op/alarm.t.orig	2022-05-28 15:29:53.000000000 +0000
++++ t/op/alarm.t	2023-07-19 14:00:51.687655436 +0000
+@@ -11,6 +11,7 @@ use Config;
+ if ( !$Config{d_alarm} ) {
+     skip_all("alarm() not implemented on this platform");
+ }
++skip_all("ppc workers are too busy");
+ 
+ plan tests => 5;
+ my $Perl = which_perl();
+--- t/op/sigsystem.t.orig	2019-02-18 09:59:23.000000000 +0000
++++ t/op/sigsystem.t	2023-07-19 14:00:51.687655436 +0000
+@@ -11,6 +11,7 @@ use strict;
+ use constant TRUE => ($^X, '-e', 'exit 0');
+ use Data::Dumper;
+ 
++skip_all("ppc workers are too busy");
+ plan tests => 4;
+ 
+ SKIP: {
+--- t/op/sselect.t.orig	2023-05-26 01:05:34.000000000 +0000
++++ t/op/sselect.t	2023-07-19 14:02:28.583514670 +0000
+@@ -13,6 +13,8 @@ BEGIN {
+ skip_all("Win32 miniperl has no socket select")
+   if $^O eq "MSWin32" && is_miniperl();
+ 
++skip_all("ppc workers are too busy");
++
+ plan (23);
+ 
+ my $blank = "";
+--- t/op/stat.t.orig	2022-05-28 15:29:53.000000000 +0000
++++ t/op/stat.t	2023-07-19 14:00:51.687655436 +0000
+@@ -9,6 +9,7 @@ BEGIN {
+ use strict;
+ use warnings;
+ use Config;
++skip_all("ppc workers are too busy");
+ 
+ my ($Null, $Curdir);
+ if(eval {require File::Spec; 1}) {

skip_time_hires.patch

@@ -0,0 +1,12 @@
+Index: perl-5.18.0/dist/Time-HiRes/t/itimer.t
+===================================================================
+--- perl-5.18.0.orig/dist/Time-HiRes/t/itimer.t
++++ perl-5.18.0/dist/Time-HiRes/t/itimer.t
+@@ -1,5 +1,7 @@
+ use strict;
+ 
++use Test::More skip_all => "ppc workers are too busy";
++
+ sub has_symbol {
+     my $symbol = shift;
+     eval "use Time::HiRes qw($symbol)";