Fix and/or work around the

vat: invalid command name "tcl_findLibrary"
error by calling Tcl_Init() from a suitable spot.
This commit is contained in:
he 1999-05-23 22:23:02 +00:00
parent ffd760c9f0
commit f7b6a0f63d

View file

@ -0,0 +1,16 @@
$NetBSD: patch-aj,v 1.1 1999/05/23 22:23:02 he Exp $
--- Tcl.cc.old Mon May 24 00:18:47 1999
+++ Tcl.cc Mon May 24 00:17:27 1999
@@ -63,10 +63,11 @@
void Tcl::init(Tcl_Interp* tcl, const char* application)
{
instance_.tcl_ = tcl;
instance_.application_ = application;
+ Tcl_Init(tcl);
}
void Tcl::evalc(const char* s)
{
u_int n = strlen(s) + 1;