Posted to tcl by apn at Wed Aug 20 14:15:57 GMT 2014view raw
- if {
- $state(-binary) || ![string match -nocase text* $state(type)]
- } {
- # Turn off conversions for non-text data
- set state(binary) 1
- }
- if {[info exists state(-channel)]} {
- if {$state(binary) || [llength [ContentEncoding $token]]} {
- fconfigure $state(-channel) -translation binary
- }
- if {![info exists state(-handler)]} {
- # Initiate a sequence of background fcopies
- fileevent $sock readable {}
- CopyStart $sock $token
- return
- }
- }