perl5: update to 5.34.1

*  Modules and Pragmata

**  Updated Modules and Pragmata

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.

*  Testing

Tests were added and changed to reflect the other additions and changes in this
release.

*  Selected Bug Fixes

B::Deparse now correctly handles try/catch blocks with more complex scopes.

4 files changed, 7 insertions, 32 deletions

diff --git a/lang/perl5/Makefile b/lang/perl5/Makefile
index 7e6dd5ada24..936b1b1689d 100644
--- a/lang/perl5/Makefile
+++ b/lang/perl5/Makefile
@@ -1,6 +1,5 @@
-# $NetBSD: Makefile,v 1.274 2021/12/26 15:50:16 nia Exp $
+# $NetBSD: Makefile,v 1.275 2022/04/01 16:39:12 wiz Exp $
 
-PKGREVISION= 3
 .include "license.mk"
 .include "Makefile.common"
 
diff --git a/lang/perl5/Makefile.common b/lang/perl5/Makefile.common
index 17efdb411b3..18879943b3c 100644
--- a/lang/perl5/Makefile.common
+++ b/lang/perl5/Makefile.common
@@ -1,9 +1,9 @@
-# $NetBSD: Makefile.common,v 1.43 2021/05/24 17:46:25 wiz Exp $
+# $NetBSD: Makefile.common,v 1.44 2022/04/01 16:39:12 wiz Exp $
 #
 # used by lang/perl5/Makefile
 # used by databases/p5-gdbm/Makefile
 
-DISTNAME=	perl-5.34.0
+DISTNAME=	perl-5.34.1
 CATEGORIES=	lang devel perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN:S,/modules/by-module/$,/src/5.0/,}
 DISTFILES+=	${DISTNAME}${EXTRACT_SUFX}
diff --git a/lang/perl5/distinfo b/lang/perl5/distinfo
index 044f9cbd64f..2b6e80ed7be 100644
--- a/lang/perl5/distinfo
+++ b/lang/perl5/distinfo
@@ -1,13 +1,12 @@
-$NetBSD: distinfo,v 1.175 2021/10/26 10:51:47 nia Exp $
+$NetBSD: distinfo,v 1.176 2022/04/01 16:39:12 wiz Exp $
 
-BLAKE2s (perl-5.34.0.tar.xz) = db521090d12fa27e5074237af943ff558ac5c64c88866986b383c7269bddfbad
-SHA512 (perl-5.34.0.tar.xz) = 691b4b31eacec357191fba777612b4e3eae59e946a22998a50766697c0d61db1d42a9b3bc1e41abf0d1ca1893e4a7c06d7bf3290480cf03d7f79befd7a8a3267
-Size (perl-5.34.0.tar.xz) = 12881416 bytes
+BLAKE2s (perl-5.34.1.tar.xz) = 4fffbd2e2c84f68bd264587a19ccf12dedfb097468cfa928d45d2891c14c2140
+SHA512 (perl-5.34.1.tar.xz) = 9261958291b49eea30c120a89e5ee32dc6a5fd46de4869c89c3d6a4c1162d6cf192ebe429d01a293eda93d8680ce15294af27717fd4ec4c75f511c1fa820fdac
+Size (perl-5.34.1.tar.xz) = 12760168 bytes
 SHA1 (patch-Configure) = a72983dba63f32f57418f2702b039585ba7236a7
 SHA1 (patch-Makefile.SH) = 56203aea57c429a94760f039a978463b8859b0a9
 SHA1 (patch-caretx.c) = b76b4175a58123fa4dfd2adf36b2207dcb6cf65a
 SHA1 (patch-cflags.SH) = e940e4452768ccc1bdf21d435094e7efffceb925
-SHA1 (patch-cpan_Encode_Encode.pm) = 2254ec5c3dd57a2e3dd587f18924d58dc972462d
 SHA1 (patch-cpan_ExtUtils-MakeMaker_lib_ExtUtils_MM__BeOS.pm) = 79e5aeccfa272ca5ec08bffc616d8053ae90ac51
 SHA1 (patch-cpan_ExtUtils-MakeMaker_lib_ExtUtils_MM__Unix.pm) = 7b1caaea7327ebf492f8cde6b459286ecf7dd5ad
 SHA1 (patch-cpan_ExtUtils-MakeMaker_t_MM__BeOS.t) = 9b0e7ab85fdab4887b1754599a8879bd7d9f36cc
diff --git a/lang/perl5/patches/patch-cpan_Encode_Encode.pm b/lang/perl5/patches/patch-cpan_Encode_Encode.pm
deleted file mode 100644
index 9c2734c88a0..00000000000
--- a/lang/perl5/patches/patch-cpan_Encode_Encode.pm
+++ /dev/null
@@ -1,23 +0,0 @@
-$NetBSD: patch-cpan_Encode_Encode.pm,v 1.2 2021/08/20 22:37:34 kim Exp $
-
-perl5: patch Encode.pm for CVE-2021-36770
-
-Without this fix, Encode::ConfigLocal can be loaded from a path relative
-to the current directory, because the || operator will evaluate @INC in
-scalar context, putting an integer as the only value in @INC.
-
-Ref: https://github.com/Perl/perl5/commit/c1a937fef07c061600a0078f4cb53fe9c2136bb9.patch
-
---- cpan/Encode/Encode.pm.orig	2021-01-20 23:04:44.000000000 +0000
-+++ cpan/Encode/Encode.pm	2021-08-20 21:36:16.700846398 +0000
-@@ -65,8 +67,8 @@ require Encode::Config;
- eval {
-     local $SIG{__DIE__};
-     local $SIG{__WARN__};
--    local @INC = @INC || ();
--    pop @INC if $INC[-1] eq '.';
-+    local @INC = @INC;
-+    pop @INC if @INC && $INC[-1] eq '.';
-     require Encode::ConfigLocal;
- };
-