From d6cbbe2ff1faab1482c13df47db1a4d72b303142 Mon Sep 17 00:00:00 2001
From: Lucy Phipps <landfillbaby69@gmail.com>
Date: Tue, 6 Jul 2021 16:40:33 +0100
Subject: [PATCH] perl: update to 5.34.0

---
 packages/perl/build.sh       |  9 ++++-----
 packages/perl/perlio.c.patch | 16 ++++++++--------
 2 files changed, 12 insertions(+), 13 deletions(-)

diff --git a/packages/perl/build.sh b/packages/perl/build.sh
index be6c196e9..0aea7bb15 100644
--- a/packages/perl/build.sh
+++ b/packages/perl/build.sh
@@ -6,11 +6,10 @@ TERMUX_PKG_MAINTAINER="@termux"
 # - exiftool
 # - irssi
 # - psutils
-TERMUX_PKG_VERSION=(5.32.1
-                    1.3.5)
-TERMUX_PKG_REVISION=1
-TERMUX_PKG_SHA256=(03b693901cd8ae807231b1787798cf1f2e0b8a56218d07b7da44f784a7caeb2c
-                   91c66f6b2b99fccfd4fee14660b677380b0c98f9456359e91449798c2ad2ef25)
+TERMUX_PKG_VERSION=(5.34.0
+                    1.3.6)
+TERMUX_PKG_SHA256=(551efc818b968b05216024fb0b727ef2ad4c100f8cb6b43fab615fa78ae5be9a
+                   4010f41870d64e3957b4b8ce70ebba10a7c4a3e86c5551acb4099c3fcbb37ce5)
 TERMUX_PKG_SRCURL=(http://www.cpan.org/src/5.0/perl-${TERMUX_PKG_VERSION}.tar.gz
 		   https://github.com/arsv/perl-cross/releases/download/${TERMUX_PKG_VERSION[1]}/perl-cross-${TERMUX_PKG_VERSION[1]}.tar.gz)
 TERMUX_PKG_BUILD_IN_SRC=true
diff --git a/packages/perl/perlio.c.patch b/packages/perl/perlio.c.patch
index 014b9371f..f9f60f5bc 100644
--- a/packages/perl/perlio.c.patch
+++ b/packages/perl/perlio.c.patch
@@ -1,7 +1,7 @@
---- ./perlio.c.orig	2020-07-04 10:20:36.137399430 +0200
-+++ ./perlio.c	2020-07-04 10:22:54.546499389 +0200
+--- ./perlio.c.orig        2020-07-04 10:20:36.137399430 +0200
++++ ./perlio.c        2020-07-04 10:22:54.546499389 +0200
 @@ -5065,7 +5065,7 @@
- 	  f = PerlIO_fdopen(fd, "w+b");
+           f = PerlIO_fdopen(fd, "w+b");
  #elif ! defined(OS2)
       int fd = -1;
 -     char tempname[] = "/tmp/PerlIO_XXXXXX";
@@ -11,10 +11,10 @@
       int old_umask = umask(0177);
 @@ -5073,7 +5073,7 @@
       if (tmpdir && *tmpdir) {
- 	 /* if TMPDIR is set and not empty, we try that first */
- 	 sv = newSVpv(tmpdir, 0);
--	 sv_catpv(sv, tempname + 4);
-+	 sv_catpv(sv, tempname + sizeof("@TERMUX_PREFIX@/tmp") - 1);
- 	 fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE);
+          /* if TMPDIR is set and not empty, we try that first */
+          sv = newSVpv(tmpdir, 0);
+-         sv_catpv(sv, tempname + 4);
++         sv_catpv(sv, tempname + sizeof("@TERMUX_PREFIX@/tmp") - 1);
+          fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE);
       }
       if (fd < 0) {