Merge pull request #88 from FGasper/issue_87_extra_cr_message

Trim trailing \r from status line so message() doesn't return it.

Author: oalders

lib/HTTP/Response.pm

@@ -30,6 +30,8 @@ sub parse
 	$str = "";
     }
 
+    $status_line =~ s/\r\z//;
+
     my $self = $class->SUPER::parse($str);
     my($protocol, $code, $message);
     if ($status_line =~ /^\d{3} /) {

t/response.t

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 
 use Test::More;
-plan tests => 29;
+plan tests => 30;
 
 use HTTP::Date;
 use HTTP::Request;
@@ -84,7 +84,9 @@ is($freshness_lifetime, 10);
 ok($r->fresh_until);  # should return something
 ok($r->fresh_until(heuristic_expiry => 0));  # should return something
 
-my $r2 = HTTP::Response->parse($r->as_string);
+my $r2 = HTTP::Response->parse($r->as_string( "\x0d\x0a"));
+is( $r2->message(), 'OK', 'message() returns as expected' );
+
 my @h = $r2->header('Cache-Control');
 is(@h, 2);