diff options
| author | nijtmans <nijtmans@noemail.net> | 2009-11-26 07:01:44 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans@noemail.net> | 2009-11-26 07:01:44 (GMT) |
| commit | c88737fbed92b74373aebf018dcc56808ba8736f (patch) | |
| tree | ebfeb9beb09da18d4be3af45520759f7724b591f /unix/tclAppInit.c | |
| parent | 577ceb2960647fd915655b07b41c0ab950811ccf (diff) | |
| download | tcl-c88737fbed92b74373aebf018dcc56808ba8736f.zip tcl-c88737fbed92b74373aebf018dcc56808ba8736f.tar.gz tcl-c88737fbed92b74373aebf018dcc56808ba8736f.tar.bz2 | |
Fix [Bug 2902965] stub related changes
cause tclkit built to break
FossilOrigin-Name: 4bf7a171b2c30730b3af318bf556e95a6512794d
Diffstat (limited to 'unix/tclAppInit.c')
| -rw-r--r-- | unix/tclAppInit.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index a39b448..715a098 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAppInit.c,v 1.20 2009/11/19 16:31:10 dgp Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.21 2009/11/26 07:01:46 nijtmans Exp $ */ #include "tcl.h" @@ -110,6 +110,10 @@ int Tcl_AppInit( Tcl_Interp *interp) /* Interpreter for application. */ { +#undef Tcl_InitStubs + if (!Tcl_InitStubs(interp, TCL_VERSION, 0)) { + return TCL_ERROR; + } if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } |