* generic/tclBasic.c: Added interp flag value ERR_LEGACY_COPY to

        * generic/tclInt.h:     control the timing with which the global
        * generic/tclNamesp.c:  variables ::errorCode and ::errorInfo get
        * generic/tclProc.c:    updated after an error.  This keeps more
        * generic/tclResult.c:  precise compatibility with Tcl 8.4.
        * tests/result.test (result-6.2):       [Bug 1649062]


FossilOrigin-Name: 00c4f9f27e47ffc8fb55b4ab5eec8314d7b646bf

1 files changed, 18 insertions, 0 deletions

diff --git a/tests/result.test b/tests/result.test
index fa21bf7..cefcaed 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -114,7 +114,25 @@ test result-6.1 {Bug 1209759} -constraints testreturn -body {
     # Might panic if bug is not fixed.
     proc foo {} {catch {return -level 2}; testreturn}
     foo
+} -cleanup {
+    rename foo {}
 } -returnCodes ok -result {}
+test result-6.2 {Bug 1649062} -setup {
+    proc foo {} {
+        if {[catch {
+            return -code error -errorinfo custom -errorcode CUSTOM foo
+        } err]} {
+            return [list $err $::errorCode $::errorInfo]
+        }
+    }
+    set ::errorInfo {}
+    set ::errorCode {}
+} -body {
+    foo
+} -cleanup {
+    rename foo {}
+} -result {foo {} {}}
+
 
 # cleanup
 cleanupTests