Hello community,

here is the log from the commit of package perl-Devel-PatchPerl for 
openSUSE:Factory checked in at 2020-11-09 13:58:46
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-PatchPerl (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Devel-PatchPerl.new.11331 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Devel-PatchPerl"

Mon Nov  9 13:58:46 2020 rev:36 rq:847123 version:2.02

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-Devel-PatchPerl/perl-Devel-PatchPerl.changes    
    2020-06-09 00:04:57.677353904 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Devel-PatchPerl.new.11331/perl-Devel-PatchPerl.changes
     2020-11-09 13:59:23.583704793 +0100
@@ -1,0 +2,6 @@
+Mon Nov  9 03:07:14 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 2.02
+   see /usr/share/doc/packages/perl-Devel-PatchPerl/Changes
+
+-------------------------------------------------------------------

Old:
----
  Devel-PatchPerl-2.00.tar.gz

New:
----
  Devel-PatchPerl-2.02.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Devel-PatchPerl.spec ++++++
--- /var/tmp/diff_new_pack.mtflll/_old  2020-11-09 13:59:24.303703223 +0100
+++ /var/tmp/diff_new_pack.mtflll/_new  2020-11-09 13:59:24.303703223 +0100
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Devel-PatchPerl
-Version:        2.00
+Version:        2.02
 Release:        0
 %define cpan_name Devel-PatchPerl
 Summary:        Patch perl source a la Devel::PPPort's buildperl.pl

++++++ Devel-PatchPerl-2.00.tar.gz -> Devel-PatchPerl-2.02.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/Changes 
new/Devel-PatchPerl-2.02/Changes
--- old/Devel-PatchPerl-2.00/Changes    2020-06-04 12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/Changes    2020-11-08 20:29:24.000000000 +0100
@@ -1,8 +1,105 @@
 ==================================================
-Changes from 2015-06-06 00:00:00 +0000 to present.
+Changes from 2015-11-10 00:00:00 +0000 to present.
 ==================================================
 
 -----------------------------------------
+version 2.02 at 2020-11-08 19:28:50 +0000
+-----------------------------------------
+
+  Change: f02eab39c2f0073e6aceff6bb0b73f4d03e39b8f
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2020-11-08 19:28:50 +0000
+
+    This is 2.02 
+
+  Change: fa458343e6ae7f70412c466eb604633db44bf24b
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2020-11-08 19:19:39 +0000
+
+    Finesse the check_patchperl script
+
+    Suppress the git output and only show patchperl output if there is a
+    problem with patching 
+
+  Change: d4fe0e9fa23d0fd78b368a5edb34550120e2c233
+  Author: Ichinose Shogo <[email protected]>
+  Date : 2020-11-08 19:18:21 +0000
+
+    fix env command syntax 
+
+  Change: 20692277283d6eb1616eab987583b33cfb612198
+  Author: Ichinose Shogo <[email protected]>
+  Date : 2020-11-08 19:18:21 +0000
+
+    update deprecated GitHub Actions commands
+
+    add-path and set-env are deprecated for security reason.
+    https://github.blog/changelog/2020-10-01-github-actions-deprecating-s
+    et-env-and-add-path-commands/ update them to use the new environment
+    files.
+    https://docs.github.com/en/free-pro-team@latest/actions/reference/wor
+    kflow-commands-for-github-actions#environment-files 
+
+  Change: 175ccb4bc8c88a0e3e3f4600fe1db09f023a9999
+  Author: Ichinose Shogo <[email protected]>
+  Date : 2020-11-07 09:17:00 +0000
+
+    fix -Duseshrplib builds on darwin
+
+    port of https://github.com/Perl/perl5/issues/15057 
+
+  Change: 7c806f542ffd0b5e75d724404012fd8bc9afc4e4
+  Author: Ichinose Shogo <[email protected]>
+  Date : 2020-11-07 09:12:34 +0000
+
+    Patch Time::HiRes in 5.24.2
+
+    Time::HiRes is broken on threaded darwin in 5.24.2, not only 5.24.1
+    and 5.24.0. https://github.com/bingos/devel-patchperl/pull/26 is need
+    in Perl 5.24.2. 
+
+  Change: eaf8ec2500acde369ad78aea12d1de0011480a0e
+  Author: Ichinose Shogo <[email protected]>
+  Date : 2020-06-23 15:26:13 +0000
+
+    Perl 5.32.0 is released 
+
+  Change: 0b60d5d7d06de737cc4e033f658aad8cff906657
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2020-06-09 16:26:25 +0000
+
+    Fix make depend problems with v5.9.[0-4] 
+
+  Change: df4f5009c804675bf97160490a95af8a67ded395
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2020-06-09 16:00:56 +0000
+
+    Fix patching the v5.7.x series 
+
+  Change: 3dce408aaf97a3b245b29303f20b30a7584fb362
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2020-06-08 21:13:06 +0000
+
+    Added a tool to check patchperl from the repository
+
+    It checkouts the perl5 git repository and runs patchperl for all of
+    the supported perl versions 
+
+  Change: 3e819851d4e28806c629ed783ef56b02f6e5ad12
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2020-06-08 19:09:04 +0000
+
+    Fixed utils/h2ph.PL patching
+
+    v5.21.9 actually already had the fix 
+
+  Change: 647e88747c8469d9c9b418a78a5b999984f17acb
+  Author: Ichinose Shogo <[email protected]>
+  Date : 2020-06-08 12:28:52 +0000
+
+    introduce GitHub Actions 
+
+-----------------------------------------
 version 2.00 at 2020-06-04 10:20:07 +0000
 -----------------------------------------
 
@@ -582,26 +679,6 @@
 
     Add BuiltbyPatchPerl entry to %Config::Config 
 
------------------------------------------
-version 1.38 at 2015-07-03 18:12:12 +0000
------------------------------------------
-
-  Change: 049fc9226c524846e51c1bdd4e2b17e97e05667d
-  Author: Chris 'BinGOs' Williams <[email protected]>
-  Date : 2015-07-03 19:12:12 +0000
-
-    Fix the patches introduced in the last release 
-
------------------------------------------
-version 1.36 at 2015-07-03 11:48:26 +0000
------------------------------------------
-
-  Change: 61c7a95065f599b9dc31c8791efab770ad7fba94
-  Author: Chris 'BinGOs' Williams <[email protected]>
-  Date : 2015-07-03 12:48:26 +0000
-
-    Added Errno GCC5 patches as far back as v5.6.0 
-
 =================================================
-Plus 67 releases after 2015-06-06 00:00:00 +0000.
+Plus 69 releases after 2015-11-10 00:00:00 +0000.
 =================================================
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/MANIFEST 
new/Devel-PatchPerl-2.02/MANIFEST
--- old/Devel-PatchPerl-2.00/MANIFEST   2020-06-04 12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/MANIFEST   2020-11-08 20:29:24.000000000 +0100
@@ -22,3 +22,4 @@
 t/modern/patchlevel.h
 t/old/patchlevel.h
 tools/audit_hints.pl
+tools/check_patchperl.pl
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/META.json 
new/Devel-PatchPerl-2.02/META.json
--- old/Devel-PatchPerl-2.00/META.json  2020-06-04 12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/META.json  2020-11-08 20:29:24.000000000 +0100
@@ -51,9 +51,9 @@
          "web" : "https://github.com/bingos/devel-patchperl";
       }
    },
-   "version" : "2.00",
-   "x_generated_by_perl" : "v5.30.2",
-   "x_serialization_backend" : "Cpanel::JSON::XS version 4.19",
+   "version" : "2.02",
+   "x_generated_by_perl" : "v5.32.0",
+   "x_serialization_backend" : "Cpanel::JSON::XS version 4.24",
    "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/META.yml 
new/Devel-PatchPerl-2.02/META.yml
--- old/Devel-PatchPerl-2.00/META.yml   2020-06-04 12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/META.yml   2020-11-08 20:29:24.000000000 +0100
@@ -23,7 +23,7 @@
 resources:
   homepage: https://github.com/bingos/devel-patchperl
   repository: https://github.com/bingos/devel-patchperl.git
-version: '2.00'
-x_generated_by_perl: v5.30.2
+version: '2.02'
+x_generated_by_perl: v5.32.0
 x_serialization_backend: 'YAML::Tiny version 1.73'
 x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/Makefile.PL 
new/Devel-PatchPerl-2.02/Makefile.PL
--- old/Devel-PatchPerl-2.00/Makefile.PL        2020-06-04 12:23:27.000000000 
+0200
+++ new/Devel-PatchPerl-2.02/Makefile.PL        2020-11-08 20:29:24.000000000 
+0100
@@ -29,7 +29,7 @@
   "TEST_REQUIRES" => {
     "Test::More" => 0
   },
-  "VERSION" => "2.00",
+  "VERSION" => "2.02",
   "test" => {
     "TESTS" => "t/*.t"
   }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/README 
new/Devel-PatchPerl-2.02/README
--- old/Devel-PatchPerl-2.00/README     2020-06-04 12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/README     2020-11-08 20:29:24.000000000 +0100
@@ -4,7 +4,7 @@
 
 VERSION
 
-    version 2.00
+    version 2.02
 
 SYNOPSIS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/bin/patchperl 
new/Devel-PatchPerl-2.02/bin/patchperl
--- old/Devel-PatchPerl-2.00/bin/patchperl      2020-06-04 12:23:27.000000000 
+0200
+++ new/Devel-PatchPerl-2.02/bin/patchperl      2020-11-08 20:29:24.000000000 
+0100
@@ -38,7 +38,7 @@
 
 =head1 VERSION
 
-version 2.00
+version 2.02
 
 =head1 SYNOPSIS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/dist.ini 
new/Devel-PatchPerl-2.02/dist.ini
--- old/Devel-PatchPerl-2.00/dist.ini   2020-06-04 12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/dist.ini   2020-11-08 20:29:24.000000000 +0100
@@ -1,5 +1,5 @@
 name = Devel-PatchPerl
-version = 2.00
+version = 2.02
 author = Chris Williams <[email protected]>
 license = Perl_5
 copyright_holder = Chris Williams and Marcus Holland-Moritz
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/lib/Devel/PatchPerl/Hints.pm 
new/Devel-PatchPerl-2.02/lib/Devel/PatchPerl/Hints.pm
--- old/Devel-PatchPerl-2.00/lib/Devel/PatchPerl/Hints.pm       2020-06-04 
12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/lib/Devel/PatchPerl/Hints.pm       2020-11-08 
20:29:24.000000000 +0100
@@ -1,5 +1,5 @@
 package Devel::PatchPerl::Hints;
-$Devel::PatchPerl::Hints::VERSION = '2.00';
+$Devel::PatchPerl::Hints::VERSION = '2.02';
 #ABSTRACT: replacement 'hints' files
 
 use strict;
@@ -2047,7 +2047,7 @@
 
 =head1 VERSION
 
-version 2.00
+version 2.02
 
 =head1 SYNOPSIS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/lib/Devel/PatchPerl/Plugin.pm 
new/Devel-PatchPerl-2.02/lib/Devel/PatchPerl/Plugin.pm
--- old/Devel-PatchPerl-2.00/lib/Devel/PatchPerl/Plugin.pm      2020-06-04 
12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/lib/Devel/PatchPerl/Plugin.pm      2020-11-08 
20:29:24.000000000 +0100
@@ -1,5 +1,5 @@
 package Devel::PatchPerl::Plugin;
-$Devel::PatchPerl::Plugin::VERSION = '2.00';
+$Devel::PatchPerl::Plugin::VERSION = '2.02';
 #ABSTRACT: Devel::PatchPerl plugins explained
 
 use strict;
@@ -19,7 +19,7 @@
 
 =head1 VERSION
 
-version 2.00
+version 2.02
 
 =head1 DESCRIPTION
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/lib/Devel/PatchPerl.pm 
new/Devel-PatchPerl-2.02/lib/Devel/PatchPerl.pm
--- old/Devel-PatchPerl-2.00/lib/Devel/PatchPerl.pm     2020-06-04 
12:23:27.000000000 +0200
+++ new/Devel-PatchPerl-2.02/lib/Devel/PatchPerl.pm     2020-11-08 
20:29:24.000000000 +0100
@@ -1,5 +1,5 @@
 package Devel::PatchPerl;
-$Devel::PatchPerl::VERSION = '2.00';
+$Devel::PatchPerl::VERSION = '2.02';
 # ABSTRACT: Patch perl source a la Devel::PPPort's buildperl.pl
 
 use strict;
@@ -203,6 +203,7 @@
               qr/^5\.6\.[0-2]$/,
               qr/^5\.7\.[0-3]$/,
               qr/^5\.8\.[0-8]$/,
+              qr/^5\.9\.[0-4]$/,
             ],
     subs => [
               [ \&_patch_makedepend_SH ],
@@ -268,7 +269,7 @@
   },
   {
     perl => [
-              qr/^5\.24\.[01]$/,
+              qr/^5\.24\.[012]$/,
             ],
     subs => [ [ \&_patch_time_hires ] ],
   },
@@ -281,6 +282,12 @@
             ],
     subs => [ [ \&_patch_fp_class_denorm ] ],
   },
+  {
+    perl => [
+              qr/^5\.28\.[01]$/,
+            ],
+    subs => [ [ \&_patch_useshrplib ] ],
+  },
 );
 
 sub patch_source {
@@ -1879,7 +1886,25 @@
 BADGER
   last SWITCH;
   }
-  # If 5.8.[12345678]
+  # If 5.9.4
+  if ( $perl eq '5.9.4' ) {
+    _patch_b64(<<'BADGER');
+LS0tIG1ha2VkZXBlbmQuU0gJMjAyMC0wNi0wOSAxNjoxNDo1NC43Njc2MTI2OTAgKzAxMDAKKysr
+IG1ha2VkZXBlbmQuU0gJMjAyMC0wNi0wOSAxNjoxNTowNC40MTEwODI2ODUgKzAxMDAKQEAgLTEy
+OCw3ICsxMjgsNyBAQAogICAgICoueSkgZmlsZWJhc2U9YGJhc2VuYW1lICRmaWxlIC55YCA7Owog
+ICAgIGVzYWMKICAgICBjYXNlICIkZmlsZSIgaW4KLSAgICAqLyopIGZpbmM9Ii1JYGVjaG8gJGZp
+bGUgfCBzZWQgJ3MjL1teL10qJCMjYCIgOzsKKyAgICAqLyopIGZpbmM9Ii1JYGVjaG8gJGZpbGUg
+fCBzZWQgJ3MjL1teL10qJCMjJ2AiIDs7CiAgICAgKikgICBmaW5jPSA7OwogICAgIGVzYWMKICAg
+ICAkZWNobyAiRmluZGluZyBkZXBlbmRlbmNpZXMgZm9yICRmaWxlYmFzZSRfby4iCkBAIC0xNjks
+NiArMTY5LDcgQEAKICAgICAgICAgICAgIC1lICcvXiMuKjxjb21tYW5kIGxpbmU+L2QnIFwKICAg
+ICAgICAgICAgIC1lICcvXiMuKjxjb21tYW5kLWxpbmU+L2QnIFwKIAkgICAgLWUgJy9eIy4qIi0i
+L2QnIFwKKwkgICAgLWUgJy9eIy4qIlwvLipcLyIvZCcgXAogCSAgICAtZSAnLzogZmlsZSBwYXRo
+IHByZWZpeCAuKiBuZXZlciB1c2VkJC9kJyBcCiAJICAgIC1lICdzI1wuWzAtOV1bMC05XSpcLmMj
+JyIkZmlsZS5jIyIgXAogCSAgICAtZSAncy9eWwkgXSojWwkgXSpsaW5lLyMvJyBcCg==
+BADGER
+  last SWITCH;
+  }
+  # If 5.8.[12345678] and 5.9.[0123]
   _patch(<<'BADGER');
 --- makedepend.SH.org  2003-06-05 19:11:10.000000000 +0100
 +++ makedepend.SH      2010-09-01 10:24:39.000000000 +0100
@@ -7995,7 +8020,7 @@
 sub _patch_utils_h2ph {
   my $perlver = shift;
   my $num = _norm_ver( $perlver );
-  return unless $num < 5.021010;
+  return unless $num < 5.021009;
   return if    $num == 5.020003;
   if ( $num < 5.006001 ) {
     return _patch_b64(<<'UH2PH560');
@@ -10056,7 +10081,7 @@
   my $num = _norm_ver( $perlver );
   return unless $num < 5.031006;
   return if     $num >= 5.030002;
-  if ( $num <= 5.006001 ) {
+  if ( $num <= 5.006001 or ( $num >= 5.00700 and $num < 5.00800 ) ) {
     return _patch_b64(<<'CONFGCC10561');
 LS0tIENvbmZpZ3VyZQorKysgQ29uZmlndXJlCkBAIC0zMTQ5LDcgKzMxNDksNyBAQCBlbHNlCiBm
 aQogJHJtIC1mIGdjY3ZlcnMqCiBjYXNlICIkZ2NjdmVyc2lvbiIgaW4KLTEqKSBjcHA9YC4vbG9j
@@ -10311,6 +10336,119 @@
 CONFGCC10
 }
 
+sub _patch_useshrplib {
+  # from 
https://github.com/Perl/perl5/commit/191f8909fa4eca1db16a91ada42dd4a065c04890
+  _patch(<<'END');
+diff --git a/Makefile.SH b/Makefile.SH
+index 6e4d5ee684f..bebe50dc131 100755
+--- Makefile.SH
++++ Makefile.SH
+@@ -67,8 +67,16 @@ true)
+                             -compatibility_version \
+                               
${api_revision}.${api_version}.${api_subversion} \
+                            -current_version \
+-                              ${revision}.${patchlevel}.${subversion} \
+-                           -install_name \$(shrpdir)/\$@"
++                              ${revision}.${patchlevel}.${subversion}"
++              case "$osvers" in
++              1[5-9]*|[2-9]*)
++                      shrpldflags="$shrpldflags -install_name `pwd`/\$@ 
-Xlinker -headerpad_max_install_names"
++                      exeldflags="-Xlinker -headerpad_max_install_names"
++                      ;;
++              *)
++                      shrpldflags="$shrpldflags -install_name \$(shrpdir)/\$@"
++                      ;;
++              esac
+               ;;
+       cygwin*)
+               shrpldflags="$shrpldflags -Wl,--out-implib=libperl.dll.a 
-Wl,--image-base,0x52000000"
+@@ -339,6 +347,14 @@ MANIFEST_SRT = MANIFEST.srt
+ 
+ !GROK!THIS!
+ 
++case "$useshrplib$osname" in
++truedarwin)
++      $spitshell >>$Makefile <<!GROK!THIS!
++PERL_EXE_LDFLAGS=$exeldflags
++!GROK!THIS!
++      ;;
++esac
++
+ case "$usecrosscompile$perl" in
+ define?*)
+       $spitshell >>$Makefile <<!GROK!THIS!
+@@ -1050,6 +1066,20 @@ $(PERL_EXE): $& $(perlmain_dep) $(LIBPERL) 
$(static_ext) ext.libs $(PERLEXPORT)
+       $(SHRPENV) $(CC) -o perl $(CLDFLAGS) $(CCDLFLAGS) $(perlmain_objs) 
$(LLIBPERL) $(static_ext) `cat ext.libs` $(libs)
+ !NO!SUBS!
+         ;;
++
++      darwin)
++          case "$useshrplib$osvers" in
++          true1[5-9]*|true[2-9]*) $spitshell >>$Makefile <<'!NO!SUBS!'
++      $(SHRPENV) $(CC) -o perl $(PERL_EXE_LDFLAGS) $(CLDFLAGS) $(CCDLFLAGS) 
$(perlmain_objs) $(static_ext) $(LLIBPERL) `cat ext.libs` $(libs)
++!NO!SUBS!
++             ;;
++          *) $spitshell >>$Makefile <<'!NO!SUBS!'
++      $(SHRPENV) $(CC) -o perl $(CLDFLAGS) $(CCDLFLAGS) $(perlmain_objs) 
$(static_ext) $(LLIBPERL) `cat ext.libs` $(libs)
++!NO!SUBS!
++             ;;
++          esac
++        ;;
++
+         *) $spitshell >>$Makefile <<'!NO!SUBS!'
+       $(SHRPENV) $(CC) -o perl $(CLDFLAGS) $(CCDLFLAGS) $(perlmain_objs) 
$(static_ext) $(LLIBPERL) `cat ext.libs` $(libs)
+ !NO!SUBS!
+diff --git a/installperl b/installperl
+index 3bf79d2d6fc..6cd65a09238 100755
+--- installperl
++++ installperl
+@@ -304,6 +304,7 @@ elsif ($^O ne 'dos') {
+       safe_unlink("$installbin/$perl_verbase$ver$exe_ext");
+       copy("perl$exe_ext", "$installbin/$perl_verbase$ver$exe_ext");
+       strip("$installbin/$perl_verbase$ver$exe_ext");
++      fix_dep_names("$installbin/$perl_verbase$ver$exe_ext");
+       chmod(0755, "$installbin/$perl_verbase$ver$exe_ext");
+     }
+     else {
+@@ -388,6 +389,7 @@ foreach my $file (@corefiles) {
+     if (copy_if_diff($file,"$installarchlib/CORE/$file")) {
+       if ($file =~ /\.(\Q$so\E|\Q$dlext\E)$/) {
+           strip("-S", "$installarchlib/CORE/$file") if $^O eq 'darwin';
++          fix_dep_names("$installarchlib/CORE/$file");
+           chmod($SO_MODE, "$installarchlib/CORE/$file");
+       } else {
+           chmod($NON_SO_MODE, "$installarchlib/CORE/$file");
+@@ -791,4 +793,27 @@ sub strip
+     }
+ }
+ 
++sub fix_dep_names {
++    my $file = shift;
++
++    $^O eq "darwin" && $Config{osvers} =~ /^(1[5-9]|[2-9])/
++      && $Config{useshrplib}
++      or return;
++
++    my @opts;
++    my $so = $Config{so};
++    my $libperl = "$Config{archlibexp}/CORE/libperl.$Config{so}";
++    if ($file =~ /\blibperl.\Q$Config{so}\E$/a) {
++        push @opts, -id => $libperl;
++    }
++    else {
++        push @opts, -change => getcwd . "/libperl.$so", $libperl;
++    }
++    push @opts, $file;
++
++    $opts{verbose} and print "  install_name_tool @opts\n";
++    system "install_name_tool", @opts
++      and die "Cannot update $file dependency paths\n";
++}
++
+ # ex: set ts=8 sts=4 sw=4 et:
+END
+}
+
 qq[patchin'];
 
 __END__
@@ -10325,7 +10463,7 @@
 
 =head1 VERSION
 
-version 2.00
+version 2.02
 
 =head1 SYNOPSIS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-2.00/tools/check_patchperl.pl 
new/Devel-PatchPerl-2.02/tools/check_patchperl.pl
--- old/Devel-PatchPerl-2.00/tools/check_patchperl.pl   1970-01-01 
01:00:00.000000000 +0100
+++ new/Devel-PatchPerl-2.02/tools/check_patchperl.pl   2020-11-08 
20:29:24.000000000 +0100
@@ -0,0 +1,34 @@
+use 5.012;
+use Perl::Version;
+use Git::Repository;
+use ExtUtils::MakeMaker;
+use Capture::Tiny qw[capture_merged];
+
+Git::Repository->run( clone => 'https://github.com/Perl/perl5.git', 'perl.git' 
) unless -d 'perl.git';
+my $r = Git::Repository->new( work_tree => 'perl.git', { quiet => 1 } );
+my @tags = grep { m!^(perl-|v)5\.! && !m!5\.00! && !m!-RC\d+$! && 
!m!^\Qv5.17.7.0\E$! && !m!^perl-5\.10\.! } $r->run( tag => '-l' );
+{
+  my @ptags = grep { m!^perl! } @tags;
+  my @vtags = sort { Perl::Version->new($a)->numify <=> 
Perl::Version->new($b)->numify } grep { m!^v! } @tags;
+  @tags = ( @ptags, @vtags );
+}
+
+foreach my $tag ( @tags ) {
+  say "Checking $tag ...";
+  $r->run( checkout => $tag );
+  my $ret; my $value;
+  my $merged = capture_merged {
+    $ret = system( $^X, '-Ilib', 'bin/patchperl', 'perl.git' );
+  };
+  unless ( $ret == 0 ) {
+    print $merged;
+    $value = prompt("Continue [Y/n]?","y") unless $ret == 0;
+  }
+  last if $value =~ m!^n!i;
+  $r->run( reset => '--hard' );
+  $r->run( clean => '-dxf' );
+}
+
+$r->run( reset => '--hard' );
+$r->run( clean => '-dxf' );
+$r->run( checkout => 'blead' );


Reply via email to