Fix and/or work around the

vat: invalid command name "tcl_findLibrary"
error by calling Tcl_Init() from a suitable spot.

1 files changed, 16 insertions, 0 deletions

diff --git a/mbone/vat/patches/patch-aj b/mbone/vat/patches/patch-aj
new file mode 100644
index 00000000000..884375d2f76
--- /dev/null
+++ b/mbone/vat/patches/patch-aj
@@ -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;