Upgraded perl to 5.34.0

Makefile

 all:
-	tar xf perl-5.30.3.tar.xz
-	cd perl-5.30.3 && export BUILD_ZLIB=False && export BUILD_BZIP2=0 && sh Configure -des -Dprefix=/usr -Dvendorprefix=/usr -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dpager="/usr/bin/less -isR" -Duseshrplib -Dusethreads
-	$(MAKE) -C perl-5.30.3
+	tar xf perl-5.34.0.tar.xz
+	patch -Np1 -d perl-5.34.0 < perl-5.34.0-fix_gdbm.patch
+	cd perl-5.34.0 && export BUILD_ZLIB=False && export BUILD_BZIP2=0 && sh Configure -des -Dprefix=/usr -Dvendorprefix=/usr -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dpager="/usr/bin/less -isR" -Duseshrplib -Dusethreads
+	$(MAKE) -C perl-5.34.0
 	if [[ ! "$(BUILD_OPTIONS)" =~ no-tests ]] ; then \
-	    $(MAKE) -C perl-5.30.3 PERL_TEST_TIME_OUT_FACTOR=4 test ; \
+	    $(MAKE) -C perl-5.34.0 PERL_TEST_TIME_OUT_FACTOR=4 test ; \
 	fi
-	$(MAKE) -C perl-5.30.3 install
-	rm -rf perl-5.30.3
+	$(MAKE) -C perl-5.34.0 install
+	rm -rf perl-5.34.0
 
 temporary:
-	tar xf perl-5.30.3.tar.xz
-	cd perl-5.30.3 && sed -i 's@/usr/include@/tools/include@g' ext/Errno/Errno_pm.PL
-	cd perl-5.30.3 && sh Configure -des -Dprefix=/tools -Dlibs=-lm -Uloclibpth -Ulocincpth -Dcc=gcc
-	$(MAKE) -C perl-5.30.3
-	cd perl-5.30.3 && cp -v perl cpan/podlators/scripts/pod2man /tools/bin
-	mkdir -pv /tools/lib/perl5/5.30.3
-	cd perl-5.30.3 && cp -Rv lib/* /tools/lib/perl5/5.30.3
-	rm -rf perl-5.30.3
+	tar xf perl-5.34.0.tar.xz
+	cd perl-5.34.0 && sed -i 's@/usr/include@/tools/include@g' ext/Errno/Errno_pm.PL
+	cd perl-5.34.0 && sh Configure -des -Dprefix=/tools -Dlibs=-lm -Uloclibpth -Ulocincpth -Dcc=gcc
+	$(MAKE) -C perl-5.34.0
+	cd perl-5.34.0 && cp -v perl cpan/podlators/scripts/pod2man /tools/bin
+	mkdir -pv /tools/lib/perl5/5.34.0
+	cd perl-5.34.0 && cp -Rv lib/* /tools/lib/perl5/5.34.0
+	rm -rf perl-5.34.0

perl-5.34.0-fix_gdbm.patch

+diff -uNr perl-5.34.0/ext/GDBM_File/GDBM_File.pm perl-5.34.0-fix_gdbm/ext/GDBM_File/GDBM_File.pm
+--- perl-5.34.0/ext/GDBM_File/GDBM_File.pm	2021-01-21 09:34:44.000000000 +1030
++++ perl-5.34.0-fix_gdbm/ext/GDBM_File/GDBM_File.pm	2022-10-05 09:51:27.748119240 +1030
+@@ -363,7 +363,7 @@
+ );
+ 
+ # This module isn't dual life, so no need for dev version numbers.
+-$VERSION = '1.19';
++$VERSION = '1.20';
+ 
+ XSLoader::load();
+ 
+diff -uNr perl-5.34.0/ext/GDBM_File/GDBM_File.xs perl-5.34.0-fix_gdbm/ext/GDBM_File/GDBM_File.xs
+--- perl-5.34.0/ext/GDBM_File/GDBM_File.xs	2021-01-21 09:34:44.000000000 +1030
++++ perl-5.34.0-fix_gdbm/ext/GDBM_File/GDBM_File.xs	2022-10-05 09:51:39.067150429 +1030
+@@ -145,15 +145,15 @@
+ #define gdbm_setopt(db,optflag,optval,optlen) not_here("gdbm_setopt")
+ #endif
+ 
+-#ifndef GDBM_ITEM_NOT_FOUND
+-# define GDBM_ITEM_NOT_FOUND GDBM_NO_ERROR
++#if GDBM_VERSION_MAJOR == 1 && GDBM_VERSION_MINOR < 13
++/* Prior to 1.13, only gdbm_fetch set GDBM_ITEM_NOT_FOUND if the requested
++   key did not exist.  Other similar function wouls set GDBM_NO_ERROR instead.
++   The GDBM_ITEM_NOT_FOUND existeds as early as in 1.7.3 */
++# define ITEM_NOT_FOUND()  (gdbm_errno == GDBM_NO_ERROR || gdbm_errno == GDBM_ITEM_NOT_FOUND)
++#else
++# define ITEM_NOT_FOUND()  (gdbm_errno == GDBM_ITEM_NOT_FOUND)
+ #endif
+ 
+-/* Prior to 1.13, gdbm_fetch family functions set gdbm_errno to GDBM_NO_ERROR
+-   if the requested key did not exist */
+-#define ITEM_NOT_FOUND()                                                \
+-    (gdbm_errno == GDBM_ITEM_NOT_FOUND || gdbm_errno == GDBM_NO_ERROR)
+-
+ #define CHECKDB(db) do {                        \
+     if (!db->dbp) {                             \
+         croak("database was closed");           \