diff options
author | vincentdarley <vincentdarley@noemail.net> | 2002-04-03 08:39:23 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2002-04-03 08:39:23 (GMT) |
commit | 569b990887749a9adb0143254906160f78e734fc (patch) | |
tree | 5942a13241543dd5ed12cdde48178810783a1b60 /generic/tclEnv.c | |
parent | b79873848317cafe95ea4a2b8427590198280e27 (diff) | |
download | tcl-569b990887749a9adb0143254906160f78e734fc.zip tcl-569b990887749a9adb0143254906160f78e734fc.tar.gz tcl-569b990887749a9adb0143254906160f78e734fc.tar.bz2 |
tilde expansion cache-clearing
FossilOrigin-Name: 9df3a5199f158d9460607bfdbde7ea0441e5efd7
Diffstat (limited to 'generic/tclEnv.c')
-rw-r--r-- | generic/tclEnv.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 86a1844..9dd1c6e 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEnv.c,v 1.13 2002/03/20 22:47:36 dgp Exp $ + * RCS: @(#) $Id: tclEnv.c,v 1.14 2002/04/03 08:39:27 vincentdarley Exp $ */ #include "tclInt.h" @@ -272,6 +272,15 @@ TclSetEnv(name, value) } Tcl_MutexUnlock(&envMutex); + + if (!strcmp(name, "HOME")) { + /* + * If the user's home directory has changed, we must invalidate + * the filesystem cache, because '~' expansions will now be + * incorrect. + */ + Tcl_FSMountsChanged(NULL); + } } /* |