diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2007-02-20 15:36:41 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2007-02-20 15:36:41 (GMT) |
| commit | a9ae76396604ebf325b996ace4452852d4f2bc35 (patch) | |
| tree | cac9764bb901f3425c555fce169cd28b4fbaeb2e /win | |
| parent | b0f20f7621b7a266aa45d3f289e913e510986ce1 (diff) | |
| download | tcl-a9ae76396604ebf325b996ace4452852d4f2bc35.zip tcl-a9ae76396604ebf325b996ace4452852d4f2bc35.tar.gz tcl-a9ae76396604ebf325b996ace4452852d4f2bc35.tar.bz2 | |
Bug #1479814. Handle extended paths on Windows NT and above.
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); |