perl: fix tmpdir path in 'libperl.so'

This commit is contained in:
Leonid Pliushch 2018-06-19 17:59:41 +03:00 committed by Fredrik Fornwall
parent 1b623b62f2
commit 576a2e05bc
2 changed files with 13 additions and 0 deletions

View File

@ -2,6 +2,7 @@ TERMUX_PKG_HOMEPAGE=https://www.perl.org/
TERMUX_PKG_DESCRIPTION="Capable, feature-rich programming language"
TERMUX_PKG_VERSION=(5.26.2
1.1.9)
TERMUX_PKG_REVISION=1
TERMUX_PKG_SHA256=(572f9cea625d6062f8a63b5cee9d3ee840800a001d2bb201a41b9a177ab7f70d
0bbb450e48d07e7fdf867d578b1780ac8f0e8dc284d52301dac4d763b42f6041)
TERMUX_PKG_SRCURL=(http://www.cpan.org/src/5.0/perl-${TERMUX_PKG_VERSION}.tar.gz

View File

@ -0,0 +1,12 @@
diff -uNr perl-5.26.2/perlio.c perl-5.26.2.mod/perlio.c
--- perl-5.26.2/perlio.c 2018-03-23 21:34:37.000000000 +0200
+++ perl-5.26.2.mod/perlio.c 2018-06-19 17:56:36.691181671 +0300
@@ -5061,7 +5061,7 @@
#else /* WIN32 */
# if defined(HAS_MKSTEMP) && ! defined(VMS) && ! 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);