From a12413b73ce0aa902e7ee0c7b345102eb2d98b8b Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 14 Aug 2007 15:17:49 +0000
Subject:        * generic/tclBasic.c:   Use fully qualified variable names for
         * tests/thread.test:    ::errorInfo and ::errorCode so that string   
      * tests/trace.test:     reported to variable traces are fully        
 qualified in agreement with Tcl 8.4 operations.

---
 ChangeLog          | 7 +++++++
 generic/tclBasic.c | 6 +++---
 tests/thread.test  | 5 +++--
 tests/trace.test   | 4 ++--
 4 files changed, 15 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4a293dc..234c2b4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-08-14  Don Porter  <dgp@users.sourceforge.net>
+
+	* generic/tclBasic.c:	Use fully qualified variable names for
+	* tests/thread.test:	::errorInfo and ::errorCode so that string
+	* tests/trace.test:	reported to variable traces are fully
+	qualified in agreement with Tcl 8.4 operations.
+
 2007-08-14  Daniel Steffen  <das@users.sourceforge.net>
 
 	* unix/tclLoadDyld.c: use dlfcn API on Mac OS X 10.4 and later; fix
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index e8aab2e..4605847 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclBasic.c,v 1.264 2007/07/31 17:03:36 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.265 2007/08/14 15:17:49 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -396,10 +396,10 @@ Tcl_CreateInterp(void)
 
     iPtr->returnOpts = NULL;
     iPtr->errorInfo = NULL;
-    TclNewLiteralStringObj(iPtr->eiVar, "errorInfo");
+    TclNewLiteralStringObj(iPtr->eiVar, "::errorInfo");
     Tcl_IncrRefCount(iPtr->eiVar);
     iPtr->errorCode = NULL;
-    TclNewLiteralStringObj(iPtr->ecVar, "errorCode");
+    TclNewLiteralStringObj(iPtr->ecVar, "::errorCode");
     Tcl_IncrRefCount(iPtr->ecVar);
     iPtr->returnLevel = 1;
     iPtr->returnCode = TCL_OK;
diff --git a/tests/thread.test b/tests/thread.test
index 1084f5c..09c2edb 100644
--- a/tests/thread.test
+++ b/tests/thread.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: thread.test,v 1.15 2006/10/09 19:15:45 msofer Exp $
+# RCS: @(#) $Id: thread.test,v 1.16 2007/08/14 15:17:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -195,7 +195,8 @@ test thread-4.4 {TclThreadSend preserve code} {testthread} {
     threadReap
     set len [llength [testthread names]]
     set serverthread [testthread create]
-    set x [catch {testthread send $serverthread {set ::errorInfo {}; break}} msg]
+    set ::errorInfo {}
+    set x [catch {testthread send $serverthread {break}} msg]
     threadReap
     list $len $x $msg $::errorInfo
 } {1 3 {} {}}
diff --git a/tests/trace.test b/tests/trace.test
index 2646502..e172c03 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -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: trace.test,v 1.58 2007/08/13 23:07:37 dgp Exp $
+# RCS: @(#) $Id: trace.test,v 1.59 2007/08/14 15:17:51 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -256,7 +256,7 @@ test trace-2.7 {trace variable writes on errorInfo} -body {
 } -cleanup {
    # always remove trace on errorInfo otherwise further tests will fail
    unset ::errorInfo
-} -result {errorInfo {} write}
+} -result {::errorInfo {} write}
 
 
 
-- 
cgit v0.12