summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-11-03 10:23:06 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-11-03 10:23:06 (GMT)
commitaa12aa72b9b56351ec474068517b61c5489a5cf2 (patch)
treead11882a5c3c346721094f94096a84d93b864aed
parent9d91e28e770e770f99f3c3115ab9e86e9d481a2d (diff)
parent746cb2938e7c4bf900a55899aa1445ece67d52ea (diff)
downloadtcl-aa12aa72b9b56351ec474068517b61c5489a5cf2.zip
tcl-aa12aa72b9b56351ec474068517b61c5489a5cf2.tar.gz
tcl-aa12aa72b9b56351ec474068517b61c5489a5cf2.tar.bz2
Better errormessage when file path contains invalid characters.
-rw-r--r--win/tclWinChan.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c
index 48acacb..2d6c42c 100644
--- a/win/tclWinChan.c
+++ b/win/tclWinChan.c
@@ -843,6 +843,11 @@ TclpOpenFileChannel(
nativeName = 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;
}