2004-07-14 Martin Hunt <hunt@redhat.com>

	* lib/insight-support.exp (gdbtk_start): Unset TCL_LIBRARY
	which fixes some problems where init.tcl was not found.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a838b113a5537c100237bf23711b6e2b1883a562..396d65ac4744592b5ad529bf68b306128d6ccba1 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-14  Martin Hunt  <hunt@redhat.com>
+
+       * lib/insight-support.exp (gdbtk_start): Unset TCL_LIBRARY
+       which fixes some problems where init.tcl was not found.
+
 2004-07-13  Andrew Cagney  <cagney@gnu.org>
 
        * gdb.base/sizeof.exp: Skip test when no inferior I/O.

diff --git a/gdb/testsuite/lib/insight-support.exp b/gdb/testsuite/lib/insight-support.exp
index cbdf163c85f290f2fdced0bab58d1673b79ec34a..e1e88896a1d43a5f2f6a764f661d7133448f6c9b 100644 (file)
--- a/gdb/testsuite/lib/insight-support.exp
+++ b/gdb/testsuite/lib/insight-support.exp
@@ -1,6 +1,6 @@
 # GDB Testsuite Support for Insight.
 #
-# Copyright 2001 Red Hat, Inc.
+# Copyright 2001, 2004 Red Hat, Inc.
 #
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License (GPL) as published by
@@ -98,6 +98,7 @@ proc gdbtk_start {test} {
   set env(SRCDIR) $abs_srcdir
   set env(GDBTK_VERBOSE) 1
   set env(GDBTK_LOGFILE) [to_tcl_path [file join $objdir gdb.log]]
+  unset -nocomplain env(TCL_LIBRARY)
 
   set err [catch {exec $INSIGHT -nx -q --tclcommand=$test} res]
   if { $err } {