diff options
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinFile.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 2a8a2a5..4139dac 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFile.c,v 1.90 2006/10/13 12:57:21 coldstore Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.91 2007/02/20 15:36:47 patthoyts Exp $ */ /* #define _WIN32_WINNT 0x0500 */ @@ -3277,6 +3277,13 @@ TclNativeCreateNativeRep( } str = Tcl_GetStringFromObj(validPathPtr, &len); + if (str[0] == '/' && str[1] == '/' && str[2] == '?' && str[3] == '/') + { + char *p; + for (p = str; p && *p; ++p) { + if (*p == '/') *p = '\\'; + } + } Tcl_WinUtfToTChar(str, len, &ds); if (tclWinProcs->useWide) { len = Tcl_DStringLength(&ds) + sizeof(WCHAR); |