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

perl: update to 5.32.0

Browse Source
This commit is contained in:
Henrik Grimler 2020-07-04 10:36:52 +02:00
parent 6fea4d1dde
commit 6a7a1cf7cc
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/perl/build.sh
View File

@ -4,10 +4,10 @@ TERMUX_PKG_LICENSE="Artistic-License-2.0"
# Packages which should be rebuilt after version change: # Packages which should be rebuilt after version change:
# - exiftool # - exiftool
# - irssi # - irssi
TERMUX_PKG_VERSION=(5.30.3 # - psutils
TERMUX_PKG_VERSION=(5.32.0
1.3.4) 1.3.4)
TERMUX_PKG_REVISION=1 TERMUX_PKG_SHA256=(efeb1ce1f10824190ad1cadbcccf6fdb8a5d37007d0100d2d9ae5f2b5900c0b4
TERMUX_PKG_SHA256=(32e04c8bb7b1aecb2742a7f7ac0eabac100f38247352a73ad7fa104e39e7406f
755aa0ca8141a942188a269564f86c3c82349f82c346ed5c992495d7f35138ba) 755aa0ca8141a942188a269564f86c3c82349f82c346ed5c992495d7f35138ba)
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)

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

@ -1,20 +1,20 @@
diff -uNr perl-5.30.1/perlio.c perl-5.30.1.mod/perlio.c --- ./perlio.c.orig 2020-07-04 10:20:36.137399430 +0200
--- perl-5.30.1/perlio.c 2019-10-25 00:27:56.000000000 +0300 +++ ./perlio.c 2020-07-04 10:22:54.546499389 +0200
+++ perl-5.30.1.mod/perlio.c 2020-01-04 01:38:31.311705529 +0200 @@ -5065,7 +5065,7 @@
@@ -5059,14 +5059,14 @@
f = PerlIO_fdopen(fd, "w+b"); f = PerlIO_fdopen(fd, "w+b");
#elif ! defined(VMS) && ! defined(OS2) #elif ! defined(OS2)
int fd = -1; int fd = -1;
- char tempname[] = "/tmp/PerlIO_XXXXXX"; - char tempname[] = "/tmp/PerlIO_XXXXXX";
+ char tempname[] = "@TERMUX_PREFIX@/tmp/PerlIO_XXXXXX"; + char tempname[] = "@TERMUX_PREFIX@/tmp/PerlIO_XXXXXX";
const char * const tmpdir = TAINTING_get ? NULL : PerlEnv_getenv("TMPDIR"); const char * const tmpdir = TAINTING_get ? NULL : PerlEnv_getenv("TMPDIR");
SV * sv = NULL; SV * sv = NULL;
int old_umask = umask(0177); int old_umask = umask(0177);
@@ -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_mkstemp_cloexec(SvPVX(sv)); fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE);
} }
if (fd < 0) { if (fd < 0) {