summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-12-06 20:12:26 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-12-06 20:12:26 (GMT)
commit7fc0aa09838f76717549f48315fd2dad8c0a1176 (patch)
tree86436a4236eb2c0ce02386fd184c4eee48cb6b47 /generic
parent63ab1f0c5d57ba9b4583d3c5029d900df034a628 (diff)
downloadtcl-7fc0aa09838f76717549f48315fd2dad8c0a1176.zip
tcl-7fc0aa09838f76717549f48315fd2dad8c0a1176.tar.gz
tcl-7fc0aa09838f76717549f48315fd2dad8c0a1176.tar.bz2
Partial fix for [Bug 2388866]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdAH.c14
1 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index ead9384..bc02f16 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdAH.c,v 1.111 2008/12/02 19:40:41 dgp Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.112 2008/12/06 20:12:27 dkf Exp $
*/
#include "tclInt.h"
@@ -1704,6 +1704,18 @@ FileTempfileCmd(
|| (tclPlatform == TCL_PLATFORM_WINDOWS
&& strchr(string, '\\') != NULL)) {
tempDirObj = TclPathPart(interp, objv[3], TCL_PATH_DIRNAME);
+
+ /*
+ * Only allow creation of temporary files in the native filesystem
+ * since they are frequently used for integration with external
+ * tools or system libraries. [Bug 2388866]
+ */
+
+ if (Tcl_FSGetFileSystemForPath(tempDirObj)
+ != &tclNativeFilesystem) {
+ TclDecrRefCount(tempDirObj);
+ tempDirObj = NULL;
+ }
}
/*