From 60777a2abe97151a649e3f1b3266366c19a80413 Mon Sep 17 00:00:00 2001
From: Karen Etheridge <ether@cpan.org>
Date: Tue, 14 Aug 2012 15:33:00 -0700
Subject: [PATCH] derive the message argument from status code if it was not
 provided

---
 lib/LWP/UserAgent.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/LWP/UserAgent.pm b/lib/LWP/UserAgent.pm
index 6f72f66fd..49f6f3766 100644
--- a/lib/LWP/UserAgent.pm
+++ b/lib/LWP/UserAgent.pm
@@ -1036,6 +1036,7 @@ sub no_proxy {
 
 sub _new_response {
     my($request, $code, $message, $content) = @_;
+    $message ||= HTTP::Status::status_message($code);
     my $response = HTTP::Response->new($code, $message);
     $response->request($request);
     $response->header("Client-Date" => HTTP::Date::time2str(time));