diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-04-10 13:59:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-04-10 13:59:13 (GMT) |
| commit | c867dfd034075a466891ee7e0bb4db6a8e9be8ea (patch) | |
| tree | 89e413cae334b617b7a719078df1d197859b04f3 /win/tclWinFCmd.c | |
| parent | 87fc10a8dab38ad4500fbf4e5a95f993f284ccf3 (diff) | |
| parent | 601ecb35c8d582572f036763b2bfb92f5b57cee5 (diff) | |
| download | tcl-c867dfd034075a466891ee7e0bb4db6a8e9be8ea.zip tcl-c867dfd034075a466891ee7e0bb4db6a8e9be8ea.tar.gz tcl-c867dfd034075a466891ee7e0bb4db6a8e9be8ea.tar.bz2 | |
[792641f95b]: Normalized win32 paths should never contain backslash.
Diffstat (limited to 'win/tclWinFCmd.c')
| -rw-r--r-- | win/tclWinFCmd.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index f14d9ff..52ea8c6 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -1108,7 +1108,12 @@ DoRemoveJustDirectory( end: if (errorPtr != NULL) { + char *p; Tcl_WinTCharToUtf(nativePath, -1, errorPtr); + p = Tcl_DStringValue(errorPtr); + for (; *p; ++p) { + if (*p == '\\') *p = '/'; + } } return TCL_ERROR; |