message() should not return a trailing CR

Question

message() should not return a trailing CR

FGasper opened this issue 7 years ago · comments

> perl -MHTTP::Response -MData::Dumper -e'$Data::Dumper::Useqq = 1; print Dumper( HTTP::Response->parse("HTTP/1.0 200 OK\x0d\x0aContent-type: text/plain\x0d\x0a\x0d\x0aHi.")->message() )'
$VAR1 = "OK\r";

Felipe Gasper · Answer 1 · Thu Oct 12 2017 19:01:37 GMT+0800 (China Standard Time)

Regression test added.

Olaf Alders · Answer 2 · Thu Oct 12 2017 20:47:57 GMT+0800 (China Standard Time)

Closed via #88