summaryrefslogtreecommitdiffstats
path: root/library/http
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-11-18 21:45:36 (GMT)
committernijtmans <nijtmans>2009-11-18 21:45:36 (GMT)
commit1cb4f92988da74c1fbee275ed1a3e70f784fc19f (patch)
treee4d7561b73fcfc61ef844b8c86dbe492843a5b99 /library/http
parente732dcbc33f07f700918fed16ed2a8d62d5d3500 (diff)
downloadtcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.zip
tcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.tar.gz
tcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.tar.bz2
Eliminate unneccessary spaces
Diffstat (limited to 'library/http')
-rw-r--r--library/http/http.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl
index 6ec2a54..e02ec3f 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: http.tcl,v 1.78 2009/11/11 06:49:05 nijtmans Exp $
+# RCS: @(#) $Id: http.tcl,v 1.79 2009/11/18 21:45:38 nijtmans Exp $
package require Tcl 8.6
# Keep this in sync with pkgIndex.tcl and with the install directories in
@@ -1283,18 +1283,18 @@ proc http::Eof {token {force 0}} {
Log "error doing $coding '$state(body)'"
return [Finish $token $err]
}
-
+
if {!$state(binary)} {
# If we are getting text, set the incoming channel's encoding
# correctly. iso8859-1 is the RFC default, but this could be any IANA
# charset. However, we only know how to convert what we have
# encodings for.
-
+
set enc [CharsetToEncoding $state(charset)]
if {$enc ne "binary"} {
set state(body) [encoding convertfrom $enc $state(body)]
}
-
+
# Translate text line endings.
set state(body) [string map {\r\n \n \r \n} $state(body)]
}