perl: update to 5.32.0
This commit is contained in:
parent
6fea4d1dde
commit
6a7a1cf7cc
@ -4,10 +4,10 @@ TERMUX_PKG_LICENSE="Artistic-License-2.0"
|
||||
# Packages which should be rebuilt after version change:
|
||||
# - exiftool
|
||||
# - irssi
|
||||
TERMUX_PKG_VERSION=(5.30.3
|
||||
# - psutils
|
||||
TERMUX_PKG_VERSION=(5.32.0
|
||||
1.3.4)
|
||||
TERMUX_PKG_REVISION=1
|
||||
TERMUX_PKG_SHA256=(32e04c8bb7b1aecb2742a7f7ac0eabac100f38247352a73ad7fa104e39e7406f
|
||||
TERMUX_PKG_SHA256=(efeb1ce1f10824190ad1cadbcccf6fdb8a5d37007d0100d2d9ae5f2b5900c0b4
|
||||
755aa0ca8141a942188a269564f86c3c82349f82c346ed5c992495d7f35138ba)
|
||||
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)
|
||||
|
@ -1,20 +1,20 @@
|
||||
diff -uNr perl-5.30.1/perlio.c perl-5.30.1.mod/perlio.c
|
||||
--- perl-5.30.1/perlio.c 2019-10-25 00:27:56.000000000 +0300
|
||||
+++ perl-5.30.1.mod/perlio.c 2020-01-04 01:38:31.311705529 +0200
|
||||
@@ -5059,14 +5059,14 @@
|
||||
--- ./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");
|
||||
#elif ! defined(VMS) && ! defined(OS2)
|
||||
#elif ! defined(OS2)
|
||||
int fd = -1;
|
||||
- char tempname[] = "/tmp/PerlIO_XXXXXX";
|
||||
+ char tempname[] = "@TERMUX_PREFIX@/tmp/PerlIO_XXXXXX";
|
||||
const char * const tmpdir = TAINTING_get ? NULL : PerlEnv_getenv("TMPDIR");
|
||||
SV * sv = NULL;
|
||||
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_mkstemp_cloexec(SvPVX(sv));
|
||||
fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE);
|
||||
}
|
||||
if (fd < 0) {
|
||||
|
Loading…
Reference in New Issue
Block a user