Mercurial > hg > egg-tcls
changeset 312:2371cd2b3f67
urllog: Force binary fetch.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sat, 31 Jan 2015 01:15:08 +0200 |
parents | adc519c72f53 |
children | 8175ef52889b |
files | urllog.tcl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Sat Jan 31 00:43:06 2015 +0200 +++ b/urllog.tcl Sat Jan 31 01:15:08 2015 +0200 @@ -248,7 +248,7 @@ upvar 1 $urlData udata upvar 1 $urlMeta umeta - if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -headers {Accept-Encoding identity}]} uerrmsg]} { + if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers {Accept-Encoding identity}]} uerrmsg]} { urllog_verb_msg $urlNick $urlChan "$urlmsg_ioerror ($uerrmsg)" urllog_log "HTTP request failed: $uerrmsg" return 0