Tcl Source Code

View Ticket
Login
Ticket UUID: 842038
Title: "Tcl bug" of "unknown" was triggered wrongly
Type: Bug Version: obsolete: 8.4.2
Submitter: trott13 Created on: 2003-11-14 11:22:26
Subsystem: 38. Init - Library - Autoload Assigned To: dgp
Priority: 5 Medium Severity:
Status: Closed Last Modified: 2003-11-14 21:12:22
Resolution: Fixed Closed By: dgp
    Closed on: 2003-11-14 14:12:22
Description:
 
while having a long errorInfo Stacktrace 
the new stack trace checking routine was 
trigered wrongly. 
 
This is due to a to long original 
errorInfo message, that was one character  
to long. 
 
see attched patch file
User Comments: dgp added on 2003-11-14 21:12:22:
Logged In: YES 
user_id=80530


Possibly a Dup of
760872

trott13 added on 2003-11-14 18:58:22:
Logged In: YES 
user_id=909095

I looked into the current CVS version of init.tcl 
and found  
if {[string bytelength $cinfo] > 153} { 
    set cinfo [string range $cinfo 0 152] 
    while {[string bytelength $cinfo] > 
150} { 
set cinfo [string range $cinfo 0 
end-1] 
    } 
    append cinfo ... 
} 
 
... 
 
this seems to be a better solution. I think this 
fixes this bug.

trott13 added on 2003-11-14 18:26:41:

File Added - 67475: init.patch

Attachments: