summaryrefslogtreecommitdiffstats
path: root/library/http1.0
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/http1.0
parente732dcbc33f07f700918fed16ed2a8d62d5d3500 (diff)
downloadtcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.zip
tcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.tar.gz
tcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.tar.bz2
Eliminate unneccessary spaces
Diffstat (limited to 'library/http1.0')
-rw-r--r--library/http1.0/http.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/library/http1.0/http.tcl b/library/http1.0/http.tcl
index 2c548bb..99efe6b 100644
--- a/library/http1.0/http.tcl
+++ b/library/http1.0/http.tcl
@@ -5,7 +5,7 @@
# These procedures use a callback interface to avoid using vwait,
# which is not defined in the safe base.
#
-# RCS: @(#) $Id: http.tcl,v 1.4 2000/02/01 11:48:30 hobbs Exp $
+# RCS: @(#) $Id: http.tcl,v 1.5 2009/11/18 21:45:38 nijtmans Exp $
#
# See the http.n man page for documentation
@@ -341,12 +341,12 @@ proc http_formatQuery {args} {
# 2 Convert every other character to an array lookup
# 3 Escape constructs that are "special" to the tcl parser
# 4 "subst" the result, doing all the array substitutions
-
+
proc httpMapReply {string} {
global httpFormMap
set alphanumeric a-zA-Z0-9
if {![info exists httpFormMap]} {
-
+
for {set i 1} {$i <= 256} {incr i} {
set c [format %c $i]
if {![string match \[$alphanumeric\] $c]} {
@@ -365,7 +365,7 @@ proc http_formatQuery {args} {
return [subst $string]
}
-# Default proxy filter.
+# Default proxy filter.
proc httpProxyRequired {host} {
global http
if {[info exists http(-proxyhost)] && [string length $http(-proxyhost)]} {