diff options
| author | coldstore <coldstore> | 2006-10-13 12:57:21 (GMT) |
|---|---|---|
| committer | coldstore <coldstore> | 2006-10-13 12:57:21 (GMT) |
| commit | b47aca32b8e6db041e5d1ae02f9fe2f98149c98c (patch) | |
| tree | bee0561e31c995f91de38869aca96554f899a3cb /win/tclWinFile.c | |
| parent | ae30ab71db6aae4fccdee34cb0716454952141d4 (diff) | |
| download | tcl-b47aca32b8e6db041e5d1ae02f9fe2f98149c98c.zip tcl-b47aca32b8e6db041e5d1ae02f9fe2f98149c98c.tar.gz tcl-b47aca32b8e6db041e5d1ae02f9fe2f98149c98c.tar.bz2 | |
win/tclWinFile.c: alfredd supplied patch to fix Bug 1575837
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 41e1733..2a8a2a5 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.89 2006/10/13 04:53:51 coldstore Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.90 2006/10/13 12:57:21 coldstore Exp $ */ /* #define _WIN32_WINNT 0x0500 */ @@ -2489,13 +2489,13 @@ TclpObjLink( int res; TCHAR *LinkTarget; TCHAR *LinkSource = (TCHAR *) Tcl_FSGetNativePath(pathPtr); + Tcl_Obj *normalizedToPtr = Tcl_FSGetNormalizedPath(NULL, toPtr); - toPtr = Tcl_FSGetNormalizedPath(NULL, toPtr); - if (toPtr == NULL) { + if (normalizedToPtr == NULL) { return NULL; } - LinkTarget = (TCHAR *) Tcl_FSGetNativePath(toPtr); + LinkTarget = (TCHAR *) Tcl_FSGetNativePath(normalizedToPtr); if (LinkSource == NULL || LinkTarget == NULL) { return NULL; |