Browse files

Made a change based on the patch from RT#34019, so that the full HTTP…

… response

message is extracted from the response line. (See
https://rt.cpan.org/Ticket/Display.html?id=34019)
  • Loading branch information...
1 parent bb49a75 commit 14e44bed9e7b49b79ac2bfdc76eee3b0902f2283 @rjray committed Sep 13, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 Parser.pm
View
2 Parser.pm
@@ -231,7 +231,7 @@ sub _parse_header {
if ($request =~ /^HTTP\/(\d+)\.(\d+)/i) {
die 'HTTP responses not allowed' unless $self->{response};
($major,$minor) = ($1,$2);
- my (undef, $state, $msg) = split / /,$request;
+ my (undef, $state, $msg) = split / /, $request, 3;
$obj = $self->{obj} = HTTP::Response->new($state, $msg);
# perhaps a request?

0 comments on commit 14e44be

Please sign in to comment.