diff options
author | dkf <dkf@noemail.net> | 2002-10-03 13:34:29 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2002-10-03 13:34:29 (GMT) |
commit | 1034df05411de622609a790aeba689e118225fde (patch) | |
tree | 9c39f7a0b3f113c68393d56cb15a4e054d19cd2e /tests/httpd | |
parent | 2462052b918855f746fa9a4c58594564b75d9fb6 (diff) | |
download | tcl-1034df05411de622609a790aeba689e118225fde.zip tcl-1034df05411de622609a790aeba689e118225fde.tar.gz tcl-1034df05411de622609a790aeba689e118225fde.tar.bz2 |
[info exist]->[info exists]. [Bug 602566]
FossilOrigin-Name: eb7c8f93a557fc3d8cf44cce5db3fcfad2313358
Diffstat (limited to 'tests/httpd')
-rw-r--r-- | tests/httpd | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/httpd b/tests/httpd index fa553d6..2bef362 100644 --- a/tests/httpd +++ b/tests/httpd @@ -75,7 +75,7 @@ proc httpdRead { sock } { # Read the query data - if {![info exist data(length_orig)]} { + if {![info exists data(length_orig)]} { set data(length_orig) $data(length) } set line [read $sock $data(length)] @@ -103,7 +103,7 @@ proc httpdRead { sock } { } 0,mime,POST { # Empty line between headers and query data - if {![info exist data(mime,content-length)]} { + if {![info exists data(mime,content-length)]} { httpd_log $sock Error "No Content-Length for POST" httpdError $sock 400 httpdSockDone $sock |