diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-26 21:46:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-26 21:46:40 (GMT) |
| commit | 1df3dc0ae2488112b8d9f28bb74b73c508a11210 (patch) | |
| tree | 30e75389482b537e3ec992241b9d1cff5b53875e /generic/tclPathObj.c | |
| parent | d2fc2aa765cea8a44d1d40502629a88c09bbfd41 (diff) | |
| parent | ad4011e1c84e0dc74ac76be5d3d48e3a1ad92d2f (diff) | |
| download | tcl-1df3dc0ae2488112b8d9f28bb74b73c508a11210.zip tcl-1df3dc0ae2488112b8d9f28bb74b73c508a11210.tar.gz tcl-1df3dc0ae2488112b8d9f28bb74b73c508a11210.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclPathObj.c')
| -rw-r--r-- | generic/tclPathObj.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 87aed3a..aefc84f 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -2350,6 +2350,8 @@ SetFsPathFromAny( fsPathPtr = (FsPath *)ckalloc(sizeof(FsPath)); if (transPtr == pathPtr) { + Tcl_GetStringFromObj(pathPtr, NULL); + TclFreeInternalRep(pathPtr); transPtr = Tcl_DuplicateObj(pathPtr); fsPathPtr->filesystemEpoch = 0; } else { |