summaryrefslogtreecommitdiffstats
path: root/win/tclWinChan.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-11-03 10:14:48 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-11-03 10:14:48 (GMT)
commit7ec17e20d3b45d7e573de0a37cde54001cae0e30 (patch)
treefc6bd4bf6d15581285df1a3de4004169d6b1f3b6 /win/tclWinChan.c
parent1e769e4b57a93366904bacf51192d6bf73203d99 (diff)
downloadtcl-7ec17e20d3b45d7e573de0a37cde54001cae0e30.zip
tcl-7ec17e20d3b45d7e573de0a37cde54001cae0e30.tar.gz
tcl-7ec17e20d3b45d7e573de0a37cde54001cae0e30.tar.bz2
Better errormessage when file path contains invalid characters. See: [03414f517b7a74].
Diffstat (limited to 'win/tclWinChan.c')
-rw-r--r--win/tclWinChan.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c
index 6d480a8..a271919 100644
--- a/win/tclWinChan.c
+++ b/win/tclWinChan.c
@@ -840,6 +840,11 @@ TclpOpenFileChannel(
nativeName = (TCHAR*) Tcl_FSGetNativePath(pathPtr);
if (nativeName == NULL) {
+ if (interp != (Tcl_Interp *) NULL) {
+ Tcl_AppendResult(interp, "couldn't open \"",
+ TclGetString(pathPtr), "\": filename is invalid on this platform",
+ NULL);
+ }
return NULL;
}