Remove dependency to IO::Uncompress::Gunzip

Was replaced by Compress::Raw::Zlib

Author: michal-josef-spacek

Changes

@@ -1,6 +1,7 @@
 Revision history for HTTP-Message
 
 {{$NEXT}}
+    - Remove dependency to IO::Uncompress::Gunzip. (Michal Josef Spacek)
 
 6.42      2022-10-18 13:53:22Z
     - We now don't consider the Content-Location header when asked

META.json

@@ -64,7 +64,6 @@
             "IO::Compress::Gzip" : "0",
             "IO::HTML" : "0",
             "IO::Uncompress::Bunzip2" : "2.021",
-            "IO::Uncompress::Gunzip" : "0",
             "IO::Uncompress::Inflate" : "0",
             "IO::Uncompress::RawInflate" : "0",
             "LWP::MediaTypes" : "6",

Makefile.PL

@@ -30,7 +30,6 @@ my %WriteMakefileArgs = (
     "IO::Compress::Gzip" => 0,
     "IO::HTML" => 0,
     "IO::Uncompress::Bunzip2" => "2.021",
-    "IO::Uncompress::Gunzip" => 0,
     "IO::Uncompress::Inflate" => 0,
     "IO::Uncompress::RawInflate" => 0,
     "LWP::MediaTypes" => 6,
@@ -77,7 +76,6 @@ my %FallbackPrereqs = (
   "IO::Compress::Gzip" => 0,
   "IO::HTML" => 0,
   "IO::Uncompress::Bunzip2" => "2.021",
-  "IO::Uncompress::Gunzip" => 0,
   "IO::Uncompress::Inflate" => 0,
   "IO::Uncompress::RawInflate" => 0,
   "LWP::MediaTypes" => 6,

cpanfile

@@ -14,7 +14,6 @@ requires "IO::Compress::Deflate" => "0";
 requires "IO::Compress::Gzip" => "0";
 requires "IO::HTML" => "0";
 requires "IO::Uncompress::Bunzip2" => "2.021";
-requires "IO::Uncompress::Gunzip" => "0";
 requires "IO::Uncompress::Inflate" => "0";
 requires "IO::Uncompress::RawInflate" => "0";
 requires "LWP::MediaTypes" => "6";

lib/HTTP/Message.pm

@@ -493,7 +493,7 @@ sub decodable
     # XXX preferably we should determine if the modules are available without loading
     # them here
     eval {
-        require IO::Uncompress::Gunzip;
+        require Compress::Raw::Zlib;
         push(@enc, "gzip", "x-gzip");
     };
     eval {

t/request.t

@@ -16,7 +16,7 @@ $req->accept_decodable;
 is( $req->method, "GET" );
 is( $req->uri,    "http://www.example.com" );
 like( $req->header("Accept-Encoding"), qr/\bgzip\b/ )
-    ;    # assuming IO::Uncompress::Gunzip is there
+    ;    # assuming Compress::Raw::Zlib is there
 
 $req->dump( prefix => "# " );