diff options
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index a124406..7e9c0f0 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -2996,6 +2996,7 @@ Tcl_FSChdir( Tcl_SetErrno(ENOENT); return -1; } + if (normDirName != pathPtr) { Tcl_IncrRefCount(normDirName); } if (fsPtr == &tclNativeFilesystem) { /* @@ -3029,6 +3030,7 @@ Tcl_FSChdir( } else { FsUpdateCwd(normDirName, NULL); } + if (normDirName != pathPtr) { Tcl_DecrRefCount(normDirName); } } return retVal; |