Update to version 5.40.3

macros.perl

@@ -40,17 +40,19 @@
 %perl_default_filter_revision 3
 
 # By default, for perl packages we want to filter all files in _docdir from 
-# req/prov scanning, as well as filtering out any provides caused by private 
-# libs in vendorarch/archlib (vendor/core).
+# req/prov scanning.
+# Filtering out any provides caused by private libs in vendorarch/archlib
+# (vendor/core) is done by rpmbuild since Fedora 20
+# <https://fedorahosted.org/fpc/ticket/353>.
 #
 # Note that this must be invoked in the spec file, preferably as 
 # "%{?perl_default_filter}", before any %description block.
 
 %perl_default_filter %{expand: \
-%global __provides_exclude_from %{perl_vendorarch}/auto/.*\\\\.so$|%{perl_archlib}/.*\\\\.so$|%{_docdir}
-%global __requires_exclude_from %{_docdir}
-%global __provides_exclude perl\\\\(VMS|perl\\\\(Win32|perl\\\\(DB\\\\)|perl\\\\(UNIVERSAL\\\\)
-%global __requires_exclude perl\\\\(VMS|perl\\\\(Win32
+%global __provides_exclude_from %{?__provides_exclude_from:%__provides_exclude_from|}^%{_docdir}
+%global __requires_exclude_from %{?__requires_exclude_from:%__requires_exclude_from|}^%{_docdir}
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\\\(VMS|^perl\\\\(Win32|^perl\\\\(DB\\\\)|^perl\\\\(UNIVERSAL\\\\)
+%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\\\(VMS|^perl\\\\(Win32
 }
 
 #############################################################################

perl-5.10.0-libresolv.patch

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

perl-5.10.0-x86_64-io-test-failure.patch

@@ -1,12 +1,12 @@
 diff -up perl-5.10.0/t/io/fs.t.BAD perl-5.10.0/t/io/fs.t
 --- perl-5.10.0/t/io/fs.t.BAD	2008-01-30 13:36:43.000000000 -0500
 +++ perl-5.10.0/t/io/fs.t	2008-01-30 13:41:27.000000000 -0500
-@@ -227,7 +227,7 @@ isnt($atime, 500000000, 'atime');
- isnt($mtime, 500000000 + $delta, 'mtime');
+@@ -257,7 +257,7 @@ isnt($atime, 500000000, 'atime');
+ isnt($mtime, $ut + $delta, 'mtime: utime called with two undefs');
 
  SKIP: {
--    skip "no futimes", 4 unless ($Config{d_futimes} || "") eq "define";
-+    skip "no futimes", 4;
+-    skip "no futimes", 6 unless ($Config{d_futimes} || "") eq "define";
++    skip "no futimes", 6;
+     note("check futimes");
      open(my $fh, "<", 'b');
-     $foo = (utime 500000000,500000000 + $delta, $fh);
-     is($foo, 1, "futime");
+     $foo = (utime $ut,$ut + $delta, $fh);

perl-5.14.1-offtest.patch

@@ -1,14 +1,18 @@
-diff -up perl-5.14.1/cpan/File-Temp/t/fork.t.off perl-5.14.1/cpan/File-Temp/t/fork.t
---- perl-5.14.1/cpan/File-Temp/t/fork.t.off	2011-04-13 13:36:34.000000000 +0200
-+++ perl-5.14.1/cpan/File-Temp/t/fork.t	2011-06-20 10:29:31.536282611 +0200
-@@ -12,12 +12,8 @@ BEGIN {
+diff -up perl-5.33.9/cpan/File-Temp/t/fork.t.orig perl-5.33.9/cpan/File-Temp/t/fork.t
+--- perl-5.33.9/cpan/File-Temp/t/fork.t.orig	2021-04-22 16:24:11.736220616 +0200
++++ perl-5.33.9/cpan/File-Temp/t/fork.t	2021-04-22 16:26:31.466593123 +0200
+@@ -12,16 +12,8 @@ BEGIN {
       $Config::Config{useithreads} and
       $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
      );
--  if ( $can_fork ) {
+-  if ( $can_fork && !(($^O eq 'MSWin32') && $Devel::Cover::VERSION) ) {
 -    print "1..8\n";
 -  } else {
--    print "1..0 # Skip No fork available\n";
+-    if ( ($^O eq 'MSWin32') && $Devel::Cover::VERSION ) {
+-        print "1..0 # Skip Devel::Cover coverage testing is incompatible with fork under 'MSWin32'\n";
+-    } else {
+-        print "1..0 # Skip No fork available\n";
+-    }
 +    print "1..0 # Skip Koji doesn't work with Perl fork tests\n";
      exit;
 -  }