diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-18 12:35:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-18 12:35:44 (GMT) |
| commit | 185b0d14932f4cc8503e6dd235da5bd90ebc777c (patch) | |
| tree | 9182e5085918a168d44eed5e3c4e4efb70fa456d /generic/tclEnv.c | |
| parent | 8844e2789a8e8d854f53069ea852ec5ef726757c (diff) | |
| parent | 345894cae91f9e72bbbfd6264ab98a2263d9dd1b (diff) | |
| download | tcl-185b0d14932f4cc8503e6dd235da5bd90ebc777c.zip tcl-185b0d14932f4cc8503e6dd235da5bd90ebc777c.tar.gz tcl-185b0d14932f4cc8503e6dd235da5bd90ebc777c.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index ad55645..64d0309 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -36,6 +36,11 @@ TCL_DECLARE_MUTEX(envMutex) /* To serialize access to environ. */ # define techar char #endif + +/* MODULE_SCOPE */ +size_t TclEnvEpoch = 0; /* Epoch of the tcl environment + * (if changed with tcl-env). */ + static struct { int cacheSize; /* Number of env strings in cache. */ char **cache; /* Array containing all of the environment @@ -417,6 +422,7 @@ Tcl_PutEnv( value[0] = '\0'; TclSetEnv(name, value+1); } + TclEnvEpoch++; Tcl_DStringFree(&nameString); return 0; @@ -624,6 +630,7 @@ EnvTraceProc( if (flags & TCL_TRACE_ARRAY) { TclSetupEnv(interp); + TclEnvEpoch++; return NULL; } @@ -644,6 +651,7 @@ EnvTraceProc( value = Tcl_GetVar2(interp, "env", name2, TCL_GLOBAL_ONLY); TclSetEnv(name2, value); + TclEnvEpoch++; } /* @@ -667,6 +675,7 @@ EnvTraceProc( if (flags & TCL_TRACE_UNSETS) { TclUnsetEnv(name2); + TclEnvEpoch++; } return NULL; } |