diff options
| -rw-r--r-- | generic/tclIOUtil.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index e630702..67ee48b 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -469,6 +469,11 @@ TclFSCwdIsNative(void) { ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&fsDataKey); + /* if not yet initialized - ensure we'll once obtain cwd */ + if (!tsdPtr->cwdPathEpoch) { + Tcl_FSGetCwd(NULL); + } + if (tsdPtr->cwdClientData != NULL) { return 1; } else { |