Mercurial > hg > egg-tcls

changeset 312:2371cd2b3f67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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