sergiotarxz/termux-packages
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

perl: update to 5.34.0

Browse Source
This commit is contained in:
Lucy Phipps 2021-07-06 16:40:33 +01:00
parent 606c32427f
commit d6cbbe2ff1
No known key found for this signature in database
GPG Key ID: 8F688A3DB7869BFE
2 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/perl/build.sh
View File

@ -6,11 +6,10 @@ TERMUX_PKG_MAINTAINER="@termux"
# - exiftool # - exiftool
# - irssi # - irssi
# - psutils # - psutils
TERMUX_PKG_VERSION=(5.32.1 TERMUX_PKG_VERSION=(5.34.0
1.3.5) 1.3.6)
TERMUX_PKG_REVISION=1 TERMUX_PKG_SHA256=(551efc818b968b05216024fb0b727ef2ad4c100f8cb6b43fab615fa78ae5be9a
TERMUX_PKG_SHA256=(03b693901cd8ae807231b1787798cf1f2e0b8a56218d07b7da44f784a7caeb2c 4010f41870d64e3957b4b8ce70ebba10a7c4a3e86c5551acb4099c3fcbb37ce5)
91c66f6b2b99fccfd4fee14660b677380b0c98f9456359e91449798c2ad2ef25)
TERMUX_PKG_SRCURL=(http://www.cpan.org/src/5.0/perl-${TERMUX_PKG_VERSION}.tar.gz 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) 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 TERMUX_PKG_BUILD_IN_SRC=true

16
packages/perl/perlio.c.patch
View File

@ -1,7 +1,7 @@
--- ./perlio.c.orig 2020-07-04 10:20:36.137399430 +0200 --- ./perlio.c.orig 2020-07-04 10:20:36.137399430 +0200
+++ ./perlio.c 2020-07-04 10:22:54.546499389 +0200 +++ ./perlio.c 2020-07-04 10:22:54.546499389 +0200
@@ -5065,7 +5065,7 @@ @@ -5065,7 +5065,7 @@
f = PerlIO_fdopen(fd, "w+b"); f = PerlIO_fdopen(fd, "w+b");
#elif ! defined(OS2) #elif ! defined(OS2)
int fd = -1; int fd = -1;
- char tempname[] = "/tmp/PerlIO_XXXXXX"; - char tempname[] = "/tmp/PerlIO_XXXXXX";
@ -11,10 +11,10 @@
int old_umask = umask(0177); int old_umask = umask(0177);
@@ -5073,7 +5073,7 @@ @@ -5073,7 +5073,7 @@
if (tmpdir && *tmpdir) { if (tmpdir && *tmpdir) {
/* if TMPDIR is set and not empty, we try that first */ /* if TMPDIR is set and not empty, we try that first */
sv = newSVpv(tmpdir, 0); sv = newSVpv(tmpdir, 0);
- sv_catpv(sv, tempname + 4); - sv_catpv(sv, tempname + 4);
+ sv_catpv(sv, tempname + sizeof("@TERMUX_PREFIX@/tmp") - 1); + sv_catpv(sv, tempname + sizeof("@TERMUX_PREFIX@/tmp") - 1);
fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE); fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE);
} }
if (fd < 0) { if (fd < 0) {