diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-14 08:11:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-14 08:11:11 (GMT) |
| commit | 14cf327d37f8aacea790129b8bdd4e497bc47981 (patch) | |
| tree | acce4aab4c9f975c1ecd82b85f4bdeedd9d2fab6 /tests/httpd | |
| parent | 56c8c7f4a2740ed010d79e0de78b0f1ed9d88c82 (diff) | |
| parent | 66bf4b493e6d83a2e1187c2538c56068a51ed7a2 (diff) | |
| download | tcl-14cf327d37f8aacea790129b8bdd4e497bc47981.zip tcl-14cf327d37f8aacea790129b8bdd4e497bc47981.tar.gz tcl-14cf327d37f8aacea790129b8bdd4e497bc47981.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/httpd')
| -rw-r--r-- | tests/httpd | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/httpd b/tests/httpd index 37343aa..43e9372 100644 --- a/tests/httpd +++ b/tests/httpd @@ -10,12 +10,10 @@ #set httpLog 1 -if {$::tcl_platform(os) eq "Darwin"} { - # Name resolution often a problem on OSX; not focus of HTTP package anyway - set HOST localhost -} else { - set HOST [info hostname] -} +# Do not use [info hostname]. +# Name resolution is often a problem on OSX; not focus of HTTP package anyway. +# Also a problem on other platforms for http-4.14 (test with bad port number). +set HOST localhost proc httpd_init {{port 8015}} { set s [socket -server httpdAccept $port] |