Bugs-Debian: #536648
Bugs-CPAN: RT#47033
Patch-Origin: https://rt.cpan.org/Ticket/Attachment/620300/315414/lwp5827.patch
Description: adjust to libwww-perl >= 5.827
Reviewed-By: gregor herrmann <gregoa@debian.org>

--- a/Makefile.PL
+++ b/Makefile.PL
@@ -12,6 +12,7 @@
     PREREQ_PM => {
         'Encode'         => 2.00,
         'Test::More'     => 0,
+	'HTTP::Message'  => 5.827,
         'HTTP::Response' => 0,
       },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
--- a/lib/HTTP/Response/Encoding.pm
+++ b/lib/HTTP/Response/Encoding.pm
@@ -5,11 +5,7 @@
 
 sub HTTP::Response::charset {
     my $self = shift;
-    return $self->{__charset} if exists $self->{__charset};
-    my $content_type = $self->headers->header('Content-Type');
-    return unless $content_type;
-    $content_type =~ /charset=([A-Za-z0-9_\-]+)/io;
-    $self->{__charset} = $1 || undef;
+    return $self->content_charset;
 }
 
 sub HTTP::Response::encoder {
--- a/t/01-file.t
+++ b/t/01-file.t
@@ -55,4 +55,4 @@
 $uri->path(File::Spec->catfile($cwd, "t", "t-null.html"));
 my $res = $ua->get($uri);
 die unless $res->is_success;
-is $res->encoding, undef, "res->encoding eq undef";
+is $res->encoding, "ascii", "res->encoding is ascii";