diff options
| author | Micael Karlberg <[email protected]> | 2013-09-13 12:50:45 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2014-02-05 10:32:25 +0100 |
| commit | b8c86e76187aad7888325c57e021ae498816f5e0 (patch) | |
| tree | 7b5296e29b041b6c47beb9d0e7361871c869ada8 /lib/inets/src/http_server/mod_head.erl | |
| parent | 1b065c9329a4497208299dbf214bba90269399ab (diff) | |
| download | otp-b8c86e76187aad7888325c57e021ae498816f5e0.tar.gz otp-b8c86e76187aad7888325c57e021ae498816f5e0.tar.bz2 otp-b8c86e76187aad7888325c57e021ae498816f5e0.zip | |
[inets/httpd] Fixed mod_head handling of "new" response
Diffstat (limited to 'lib/inets/src/http_server/mod_head.erl')
| -rw-r--r-- | lib/inets/src/http_server/mod_head.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/inets/src/http_server/mod_head.erl b/lib/inets/src/http_server/mod_head.erl index c346fd4d23..1378063ae5 100644 --- a/lib/inets/src/http_server/mod_head.erl +++ b/lib/inets/src/http_server/mod_head.erl @@ -42,6 +42,10 @@ do(Info) -> %% A response has been sent! Nothing to do about it! {already_sent, _StatusCode, _Size} -> {proceed,Info#mod.data}; + {response, Header, _Body} -> %% New way + {proceed, + lists:keyreplace(response, 1, Info#mod.data, + {response, Header, nobody})}; %% A response has been generated! {_StatusCode, _Response} -> {proceed,Info#mod.data} |