Changeset 47206


Ignore:
Timestamp:
Feb 23, 2009, 1:55:48 PM (12 years ago)
Author:
jmr@…
Message:

portindex: use 'string bytelength' instead of 'string length', so UTF-8 characters in the PortInfo don't break the code that reads the PortIndex

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/portindex.tcl

    r47110 r47206  
    7070       
    7171        set output [array get portinfo]
    72         set len [expr [string length $output] + 1]
     72        set len [expr [string bytelength $output] + 1]
    7373        puts $fd [list $portinfo(name) $len]
    7474        puts $fd $output
Note: See TracChangeset for help on using the changeset viewer.