diff options
| author | Micael Karlberg <[email protected]> | 2013-09-13 12:50:45 +0200 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2013-11-12 18:24:47 +0100 |
| commit | d36857bfd25711b5b8438440146a34916b35bddc (patch) | |
| tree | f39ab5853b5fd8085771fe5ee03179fe4d1d0e26 /lib/inets/src/http_server/mod_head.erl | |
| parent | a5128108ad3efff77c5080f0769737e70a0bfd82 (diff) | |
| download | otp-d36857bfd25711b5b8438440146a34916b35bddc.tar.gz otp-d36857bfd25711b5b8438440146a34916b35bddc.tar.bz2 otp-d36857bfd25711b5b8438440146a34916b35bddc.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..02b8485b25 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} |