diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-10-03 13:34:30 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-10-03 13:34:30 (GMT) |
| commit | ab7c4df02b91f86fd42936b1c44f131bf042fb3f (patch) | |
| tree | 9c39f7a0b3f113c68393d56cb15a4e054d19cd2e /tests/httpd | |
| parent | 28533d82ea038848d80fe995d9a992401a77945f (diff) | |
| download | tcl-ab7c4df02b91f86fd42936b1c44f131bf042fb3f.zip tcl-ab7c4df02b91f86fd42936b1c44f131bf042fb3f.tar.gz tcl-ab7c4df02b91f86fd42936b1c44f131bf042fb3f.tar.bz2 | |
[info exist]->[info exists]. [Bug 602566]
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 |