diff --git a/packages/perl/build.sh b/packages/perl/build.sh
index 1c0ac06df..edc0b9974 100644
--- a/packages/perl/build.sh
+++ b/packages/perl/build.sh
@@ -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
diff --git a/packages/perl/perlio.c.patch b/packages/perl/perlio.c.patch
new file mode 100644
index 000000000..af8c1dc60
--- /dev/null
+++ b/packages/perl/perlio.c.patch
@@ -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);