diff options
| author | vincentdarley <vincentdarley> | 2002-04-03 08:39:24 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-04-03 08:39:24 (GMT) |
| commit | 7aeafd8794e75f5c80d4c801dc71d0c7ea002bf9 (patch) | |
| tree | 5942a13241543dd5ed12cdde48178810783a1b60 /generic/tclEnv.c | |
| parent | 021fe1e9bdb2ad887b654e5185fd137145450be7 (diff) | |
| download | tcl-7aeafd8794e75f5c80d4c801dc71d0c7ea002bf9.zip tcl-7aeafd8794e75f5c80d4c801dc71d0c7ea002bf9.tar.gz tcl-7aeafd8794e75f5c80d4c801dc71d0c7ea002bf9.tar.bz2 | |
tilde expansion cache-clearing
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); + } } /* |