Ticket UUID: | 685926 | |||
Title: | tcl_platform(user) is not in UTF-8 format | |||
Type: | Bug | Version: | None | |
Submitter: | vwartelle | Created on: | 2003-02-13 13:56:27 | |
Subsystem: | 38. Init - Library - Autoload | Assigned To: | kennykb | |
Priority: | 5 Medium | Severity: | ||
Status: | Closed | Last Modified: | 2003-02-14 07:04:53 | |
Resolution: | Fixed | Closed By: | kennykb | |
Closed on: | 2003-02-14 00:04:53 | |||
Description: |
Problem - ActiveTcl8.4.1.0 - Win XP - (french version) set tcl_platform(user) Propriétaire puts stdout "-$tcl_platform(user)-" -Propriétaire- string bytelength "Propriétaire" 13 string bytelength $tcl_platform(user) 12 string compare $tcl_platform(user) "Propriétaire" 1 Workaround set username [encoding convertto /tcl/encoding/cp1252 $tcl_platform(user)] Propriétaire string bytelength $username 13 string compare $username "Propriétaire" 0 | |||
User Comments: |
kennykb added on 2003-02-14 07:04:53:
Logged In: YES user_id=99768 fix committed kennykb added on 2003-02-14 06:17:08: File Added - 42370: 685926.patch Logged In: YES user_id=99768 Patch attached. dgp added on 2003-02-13 23:04:24: Logged In: YES user_id=80530 Apparently improper handling of the value returned from GetUserName in TclpSetVariables() in tclWinInit.c. Kevin, can you advise whether the obvious fix will work? Meanwhile, a better workaround is to set the environment variable USERNAME to the value you want for tcl_platform(user). |
Attachments:
- 685926.patch [download] added by kennykb on 2003-02-14 06:17:08. [details]