CVS commit: pkgsrc/lang/perl5

["Maya Rashish" <maya%netbsd.org@localhost>]

Module Name:    pkgsrc
Committed By:   maya
Date:           Mon Nov 11 21:32:12 UTC 2019

Modified Files:
        pkgsrc/lang/perl5: Makefile distinfo
Added Files:
        pkgsrc/lang/perl5/patches: patch-Safe.pm

Log Message:
perl5: evaluating this regex to force utf8_heavy.pl to load no longer works,
use a unicode 'tr///' instead.

Fixes Bugzilla checksetup.pl, which uses Safe.

Thanks to many on #perl on freenode.
PR pkg/54625
Bump PKGREVISION


To generate a diff of this commit:
cvs rdiff -u -r1.257 -r1.258 pkgsrc/lang/perl5/Makefile
cvs rdiff -u -r1.159 -r1.160 pkgsrc/lang/perl5/distinfo
cvs rdiff -u -r0 -r1.1 pkgsrc/lang/perl5/patches/patch-Safe.pm

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.

Modified files:

Index: pkgsrc/lang/perl5/Makefile
diff -u pkgsrc/lang/perl5/Makefile:1.257 pkgsrc/lang/perl5/Makefile:1.258
--- pkgsrc/lang/perl5/Makefile:1.257    Sun Nov  3 19:04:05 2019
+++ pkgsrc/lang/perl5/Makefile  Mon Nov 11 21:32:12 2019
@@ -1,9 +1,9 @@
-# $NetBSD: Makefile,v 1.257 2019/11/03 19:04:05 rillig Exp $
+# $NetBSD: Makefile,v 1.258 2019/11/11 21:32:12 maya Exp $
 
 .include "license.mk"
 .include "Makefile.common"
 
-PKGREVISION=   1
+PKGREVISION=   2
 
 COMMENT=       Practical Extraction and Report Language
 

Index: pkgsrc/lang/perl5/distinfo
diff -u pkgsrc/lang/perl5/distinfo:1.159 pkgsrc/lang/perl5/distinfo:1.160
--- pkgsrc/lang/perl5/distinfo:1.159    Thu Oct 10 17:59:57 2019
+++ pkgsrc/lang/perl5/distinfo  Mon Nov 11 21:32:12 2019
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.159 2019/10/10 17:59:57 maya Exp $
+$NetBSD: distinfo,v 1.160 2019/11/11 21:32:12 maya Exp $
 
 SHA1 (perl-5.30.0.tar.xz) = cc8d1e08ffe4624c197a44d02855632725d39f8e
 RMD160 (perl-5.30.0.tar.xz) = 64ff4c65823122c337e18278585d71def1de9c5d
@@ -6,6 +6,7 @@ SHA512 (perl-5.30.0.tar.xz) = 68a295eccd
 Size (perl-5.30.0.tar.xz) = 12419868 bytes
 SHA1 (patch-Configure) = 6000aafeb993fd096c9b1327302b510aa0d386bb
 SHA1 (patch-Makefile.SH) = 93cae9736ef94cdd9e5748f7e0a0183332c2f3b3
+SHA1 (patch-Safe.pm) = bfeefb82d4cfe991e3a9a90cd87b894c9f4cc337
 SHA1 (patch-alignment_1) = b68c0916b271523922caa7f89edb165284e7b5f4
 SHA1 (patch-alignment_2) = cae8495c4a092e31da422bf5684481091ee2adf3
 SHA1 (patch-caretx.c) = b76b4175a58123fa4dfd2adf36b2207dcb6cf65a

Added files:

Index: pkgsrc/lang/perl5/patches/patch-Safe.pm
diff -u /dev/null pkgsrc/lang/perl5/patches/patch-Safe.pm:1.1
--- /dev/null   Mon Nov 11 21:32:12 2019
+++ pkgsrc/lang/perl5/patches/patch-Safe.pm     Mon Nov 11 21:32:12 2019
@@ -0,0 +1,16 @@
+$NetBSD: patch-Safe.pm,v 1.1 2019/11/11 21:32:12 maya Exp $
+
+Use tr/// to force the loading of utf8_heavy, the current code no longer works.
+https://github.com/Perl/perl5/issues/17271
+
+--- dist/Safe/Safe.pm.orig     2019-11-11 21:17:50.484290191 +0000
++++ dist/Safe/Safe.pm
+@@ -67,7 +67,7 @@ require utf8;
+ # particular code points don't cause it to load.
+ # (Swashes are cached internally by perl in PL_utf8_* variables
+ # independent of being inside/outside of Safe. So once loaded they can be)
+-do { my $a = pack('U',0x100); my $b = chr 0x101; utf8::upgrade $b; $a =~ /$b/i };
++do { my $a = pack('U',0x100); my $b = chr 0x101; utf8::upgrade $b; $a =~ tr/\x{202a}-\x{202e}//d };
+ # now we can safely include utf8::SWASHNEW in $default_share defined below.
+ 
+ my $default_root  = 0;