Avoid gdb.gdbtk testsuite to stop when TCL_LIBRARY environment variable

is not set.
2008-09-19  Denis Pilat  <denis.pilat@st.com>

	* insight-support.exp (gdbtk_start): test TCL_LIBRARY env. variable
	before being unset.

diff --git a/gdb/testsuite/gdb.gdbtk/ChangeLog b/gdb/testsuite/gdb.gdbtk/ChangeLog
index 0afd6fa..446e5f3 100644 (file)
--- a/gdb/testsuite/gdb.gdbtk/ChangeLog
+++ b/gdb/testsuite/gdb.gdbtk/ChangeLog
@@ -1,6 +1,11 @@
+2008-09-19  Denis Pilat  <denis.pilat@st.com>
+
+       * insight-support.exp (gdbtk_start): test TCL_LIBRARY env. variable
+       before being unset.
+
 2008-03-28  Maciej W. Rozycki  <macro@mips.com>
 
-        * README: Fix a few typos throughout.
+       * README: Fix a few typos throughout.
 
 2008-02-20  Keith Seitz  <keiths@redhat.com>
 

diff --git a/gdb/testsuite/gdb.gdbtk/insight-support.exp b/gdb/testsuite/gdb.gdbtk/insight-support.exp
index e581520..ef03922 100644 (file)
--- a/gdb/testsuite/gdb.gdbtk/insight-support.exp
+++ b/gdb/testsuite/gdb.gdbtk/insight-support.exp
@@ -98,7 +98,9 @@ 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)
+  if {[info exists env(TCL_LIBRARY)]} {
+    unset -nocomplain env(TCL_LIBRARY)
+  }
 
   set err [catch {exec $INSIGHT -nx -q --tclcommand=$test} res]
   if { $err } {