diff --git a/lib/POE/Component/Client/HTTP/Request.pm b/lib/POE/Component/Client/HTTP/Request.pm index b6671a8..a9381ca 100644 --- a/lib/POE/Component/Client/HTTP/Request.pm +++ b/lib/POE/Component/Client/HTTP/Request.pm @@ -537,8 +537,8 @@ sub error { my $nl = "\n"; - my $r = HTTP::Response->new($code, [ 'X-PCCH-Errmsg', $message ]); my $http_msg = status_message($code); + my $r = HTTP::Response->new($code, $http_msg, [ 'X-PCCH-Errmsg', $message ]); my $m = ( "$nl" . "