| Ticket UUID: | bc5b790099f7f89ba5f213bbf7bc92a22414f063 | |||
| Title: | read hangs on utf-8 channel | |||
| Type: | Bug | Version: | 8.6.2 - 956d1be41ba7e5229efdbe931b8f92945cb11b26 | |
| Submitter: | jcr | Created on: | 2014-10-01 18:55:27 | |
| Subsystem: | 25. Channel System | Assigned To: | dgp | |
| Priority: | 9 Immediate | Severity: | Severe | |
| Status: | Closed | Last Modified: | 2014-10-02 14:47:18 | |
| Resolution: | Fixed | Closed By: | dgp | |
| Closed on: | 2014-10-02 14:47:18 | |||
| Description: |
The following script hangs at the final read.
# ----
set data {gi4uIMKn4oCCLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4u4oCCLi4gwqfigIIK}
set f [file tempfile]
chan configure $f -encoding binary
puts -nonewline $f [binary decode base64 $data]
flush $f
seek $f 0
chan configure $f -encoding utf-8
puts stderr "about to read"
set newdata [read $f 130]
puts stderr [string length $newdata]
# ----
| |||
| User Comments: |
dgp added on 2014-10-02 14:47:18:
Fix with test committed. dgp added on 2014-10-02 14:03:33: The padding for Tcl_ExternalToUtf() was calculated wrong. Testing a fix... dgp added on 2014-10-01 19:31:14: Bug enters in checkin 2e1e7c8266 . Almost certainly enters also in 04b06f7cea breaking 8.5.16 in the same way. | |||
Home
Timeline
Branches
Tags
Tickets
Download
Wiki