diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-09-14 17:13:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-09-14 17:13:18 (GMT) |
| commit | 9e5a076c152f19abbf9f1b67392bd2072bac77c7 (patch) | |
| tree | 6faa8807c6893dae4bd8cd9d5668a911697e0dfe /library | |
| parent | d6a5a988b1a1360a77a043ec10d175c8a6c0fd36 (diff) | |
| download | tcl-9e5a076c152f19abbf9f1b67392bd2072bac77c7.zip tcl-9e5a076c152f19abbf9f1b67392bd2072bac77c7.tar.gz tcl-9e5a076c152f19abbf9f1b67392bd2072bac77c7.tar.bz2 | |
* generic/tclStringObj.c: Bug fixes: ObjPrintfVA needed to
support "*" fields and needed to interpret precision limits on
%s conversions as a number of bytes, not Tcl_UniChars, to take
from the (char *) argument.
* generic/tclBasic.c: Updated several callers to use
* generic/tclCmdMZ.c: TclFormatToErrorInfo().
* generic/tclIOUtil.c:
* library/init.tcl: Keep [unknown] in sync with errorInfo
formatting rules.
Diffstat (limited to 'library')
| -rw-r--r-- | library/init.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/init.tcl b/library/init.tcl index 527f0b9..bd04e08 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -3,7 +3,7 @@ # Default system startup file for Tcl-based applications. Defines # "unknown" procedure and auto-load facilities. # -# RCS: @(#) $Id: init.tcl,v 1.80 2005/08/24 17:56:23 andreas_kupries Exp $ +# RCS: @(#) $Id: init.tcl,v 1.81 2005/09/14 17:13:18 dgp Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. @@ -272,8 +272,8 @@ proc unknown args { set errorInfo [dict get $opts -errorinfo] set errorCode [dict get $opts -errorcode] set cinfo $args - if {[string bytelength $cinfo] > 153} { - set cinfo [string range $cinfo 0 152] + if {[string bytelength $cinfo] > 150} { + set cinfo [string range $cinfo 0 150] while {[string bytelength $cinfo] > 150} { set cinfo [string range $cinfo 0 end-1] } |