diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-14 13:01:46 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-14 13:01:46 (GMT) |
commit | 7ecabf83c6ffcd212364b2b0b35ef18e98ee7ecd (patch) | |
tree | 50025dfed29a1aad376792dac26c592de41f9d6a /generic/tclStubInit.c | |
parent | 47871a70f2f72a07a20bcf8ab3826068bf227392 (diff) | |
download | tcl-7ecabf83c6ffcd212364b2b0b35ef18e98ee7ecd.zip tcl-7ecabf83c6ffcd212364b2b0b35ef18e98ee7ecd.tar.gz tcl-7ecabf83c6ffcd212364b2b0b35ef18e98ee7ecd.tar.bz2 |
* unix/tclUnixFCmd.c (TclUnixOpenTemporaryFile): [Bug 2933003]: Factor
out all the code to do temporary file creation so that it is possible
to make it correct in one place. Allow overriding of the back-stop
default temporary file location at compile time by setting the
TCL_TEMPORARY_FILE_DIRECTORY #def to a string containing the directory
name (defaults to "/tmp" as that is the most common default).
Diffstat (limited to 'generic/tclStubInit.c')
-rw-r--r-- | generic/tclStubInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 75af3b7..0bede56 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -465,7 +465,7 @@ static const TclIntPlatStubs tclIntPlatStubs = { 0, /* 17 */ 0, /* 18 */ 0, /* 19 */ - 0, /* 20 */ + TclUnixOpenTemporaryFile, /* 20 */ 0, /* 21 */ 0, /* 22 */ 0, /* 23 */ @@ -529,7 +529,7 @@ static const TclIntPlatStubs tclIntPlatStubs = { TclMacOSXCopyFileAttributes, /* 17 */ TclMacOSXMatchType, /* 18 */ TclMacOSXNotifierAddRunLoopMode, /* 19 */ - 0, /* 20 */ + TclUnixOpenTemporaryFile, /* 20 */ 0, /* 21 */ 0, /* 22 */ 0, /* 23 */ |