diff options
| author | hershey <hershey> | 1999-07-21 23:28:05 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-07-21 23:28:05 (GMT) |
| commit | daeda8f9c3accd378ab1fb67803abe9b35ab6ebc (patch) | |
| tree | d39eaeca8ef112bb3b3af6c15c4967ebab1041af /win | |
| parent | 6b75c1c7b97d1c211e019208822e43470377df12 (diff) | |
| download | tcl-daeda8f9c3accd378ab1fb67803abe9b35ab6ebc.zip tcl-daeda8f9c3accd378ab1fb67803abe9b35ab6ebc.tar.gz tcl-daeda8f9c3accd378ab1fb67803abe9b35ab6ebc.tar.bz2 | |
added a line to initialize the tclDefaultLibrary tcl global var to "", as
was done in Tcl8.0.5.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinInit.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 2a02872..27b86d5 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.18 1999/07/21 02:01:37 hershey Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.19 1999/07/21 23:28:05 hershey Exp $ */ #include "tclWinInt.h" @@ -532,7 +532,8 @@ TclpSetInitialEncodings() * None. * * Side effects: - * Sets "tcl_platform" and "env(HOME)" Tcl variables. + * Sets "tclDefaultLibrary", "tcl_platform", and "env(HOME)" Tcl + * variables. * *---------------------------------------------------------------------- */ @@ -563,6 +564,12 @@ TclpSetVariables(interp) } /* + * Initialize the tclDefaultLibrary variable from the registry. + */ + + Tcl_SetVar(interp, "tclDefaultLibrary", "", TCL_GLOBAL_ONLY); + + /* * Define the tcl_platform array. */ |