diff options
author | Niko Tyni <ntyni@debian.org> | 2009-06-10 08:32:42 -0500 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2009-06-10 08:32:42 -0500 |
commit | 26e8050aaf2eeca2f04cdc7bc5df07f8dc4ff0f9 (patch) | |
tree | a00b11d8470d3ec8f9c85aa155111f962f7d1dd7 /perlio.c | |
parent | af6a0f9e3d4aacb66f6fd0d20aa527ab7d9a9032 (diff) | |
download | perl-26e8050aaf2eeca2f04cdc7bc5df07f8dc4ff0f9.tar.gz |
[perl #66452] TMPDIR not honored when opening an anonymous temporary file
Diffstat (limited to 'perlio.c')
-rw-r--r-- | perlio.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -5174,7 +5174,9 @@ PerlIO_tmpfile(void) f = PerlIO_fdopen(fd, "w+b"); #else /* WIN32 */ # if defined(HAS_MKSTEMP) && ! defined(VMS) && ! defined(OS2) - SV * const sv = newSVpvs("/tmp/PerlIO_XXXXXX"); + const char * const tmpdir = PerlEnv_getenv("TMPDIR"); + SV * const sv = newSVpv(tmpdir ? tmpdir : "/tmp", 0); + sv_catpv(sv, "/PerlIO_XXXXXX"); /* * I have no idea how portable mkstemp() is ... NI-S */ |