| |
@@ -0,0 +1,109 @@
|
| |
+ From fa898236093eb610a820af399d897be2ab6c5a36 Mon Sep 17 00:00:00 2001
|
| |
+ From: =?UTF-8?q?Michal=20Josef=20=C5=A0pa=C4=8Dek?= <mspacek@redhat.com>
|
| |
+ Date: Tue, 18 Oct 2022 14:48:09 +0200
|
| |
+ Subject: [PATCH 2/2] Remove dependency to IO::Uncompress::Bunzip2
|
| |
+
|
| |
+ Was replaced by Compress::Raw::Bzip2
|
| |
+ ---
|
| |
+ META.json | 1 -
|
| |
+ Makefile.PL | 2 --
|
| |
+ cpanfile | 1 -
|
| |
+ dist.ini | 1 -
|
| |
+ lib/HTTP/Message.pm | 2 +-
|
| |
+ t/message.t | 4 ++--
|
| |
+ 6 files changed, 3 insertions(+), 8 deletions(-)
|
| |
+
|
| |
+ diff --git a/META.json b/META.json
|
| |
+ index c7a1b138..c4b4926e 100644
|
| |
+ --- a/META.json
|
| |
+ +++ b/META.json
|
| |
+ @@ -63,7 +63,6 @@
|
| |
+ "IO::Compress::Deflate" : "0",
|
| |
+ "IO::Compress::Gzip" : "0",
|
| |
+ "IO::HTML" : "0",
|
| |
+ - "IO::Uncompress::Bunzip2" : "2.021",
|
| |
+ "IO::Uncompress::Inflate" : "0",
|
| |
+ "IO::Uncompress::RawInflate" : "0",
|
| |
+ "LWP::MediaTypes" : "6",
|
| |
+ diff --git a/Makefile.PL b/Makefile.PL
|
| |
+ index fde5a97b..ef00fed2 100644
|
| |
+ --- a/Makefile.PL
|
| |
+ +++ b/Makefile.PL
|
| |
+ @@ -29,7 +29,6 @@ my %WriteMakefileArgs = (
|
| |
+ "IO::Compress::Deflate" => 0,
|
| |
+ "IO::Compress::Gzip" => 0,
|
| |
+ "IO::HTML" => 0,
|
| |
+ - "IO::Uncompress::Bunzip2" => "2.021",
|
| |
+ "IO::Uncompress::Inflate" => 0,
|
| |
+ "IO::Uncompress::RawInflate" => 0,
|
| |
+ "LWP::MediaTypes" => 6,
|
| |
+ @@ -75,7 +74,6 @@ my %FallbackPrereqs = (
|
| |
+ "IO::Compress::Deflate" => 0,
|
| |
+ "IO::Compress::Gzip" => 0,
|
| |
+ "IO::HTML" => 0,
|
| |
+ - "IO::Uncompress::Bunzip2" => "2.021",
|
| |
+ "IO::Uncompress::Inflate" => 0,
|
| |
+ "IO::Uncompress::RawInflate" => 0,
|
| |
+ "LWP::MediaTypes" => 6,
|
| |
+ diff --git a/cpanfile b/cpanfile
|
| |
+ index 877bb3cb..86434741 100644
|
| |
+ --- a/cpanfile
|
| |
+ +++ b/cpanfile
|
| |
+ @@ -13,7 +13,6 @@ requires "IO::Compress::Bzip2" => "2.021";
|
| |
+ requires "IO::Compress::Deflate" => "0";
|
| |
+ requires "IO::Compress::Gzip" => "0";
|
| |
+ requires "IO::HTML" => "0";
|
| |
+ -requires "IO::Uncompress::Bunzip2" => "2.021";
|
| |
+ requires "IO::Uncompress::Inflate" => "0";
|
| |
+ requires "IO::Uncompress::RawInflate" => "0";
|
| |
+ requires "LWP::MediaTypes" => "6";
|
| |
+ diff --git a/dist.ini b/dist.ini
|
| |
+ index 8b61a194..5f0ed9c6 100644
|
| |
+ --- a/dist.ini
|
| |
+ +++ b/dist.ini
|
| |
+ @@ -18,7 +18,6 @@ HTTP::Date = 6
|
| |
+ IO::Compress::Brotli = 0.004001
|
| |
+ IO::Compress::Bzip2 = 2.021
|
| |
+ IO::Uncompress::Brotli = 0.004001
|
| |
+ -IO::Uncompress::Bunzip2 = 2.021
|
| |
+ LWP::MediaTypes = 6
|
| |
+ MIME::Base64 = 2.1
|
| |
+ perl = 5.008001
|
| |
+ diff --git a/lib/HTTP/Message.pm b/lib/HTTP/Message.pm
|
| |
+ index 222655dc..9182db7f 100644
|
| |
+ --- a/lib/HTTP/Message.pm
|
| |
+ +++ b/lib/HTTP/Message.pm
|
| |
+ @@ -502,7 +502,7 @@ sub decodable
|
| |
+ push(@enc, "deflate");
|
| |
+ };
|
| |
+ eval {
|
| |
+ - require IO::Uncompress::Bunzip2;
|
| |
+ + require Compress::Raw::Bzip2;
|
| |
+ push(@enc, "x-bzip2", "bzip2");
|
| |
+ };
|
| |
+ eval {
|
| |
+ diff --git a/t/message.t b/t/message.t
|
| |
+ index ef044a73..cf86f0c6 100644
|
| |
+ --- a/t/message.t
|
| |
+ +++ b/t/message.t
|
| |
+ @@ -500,7 +500,7 @@ is($m->decoded_content, "Hello World!");
|
| |
+ ok(!$m->header("Client-Warning"));
|
| |
+
|
| |
+
|
| |
+ -if (eval "require IO::Uncompress::Bunzip2") {
|
| |
+ +if (eval "require Compress::Raw::Bzip2") {
|
| |
+ for my $encoding (qw/x-bzip2 bzip2/) {
|
| |
+ $m = HTTP::Message->new([
|
| |
+ "Content-Type" => "text/plain",
|
| |
+ @@ -531,7 +531,7 @@ if (eval "require IO::Uncompress::Bunzip2") {
|
| |
+ }
|
| |
+ }
|
| |
+ else {
|
| |
+ - skip("Need IO::Uncompress::Bunzip2", undef) for 1..18;
|
| |
+ + skip("Need Compress::Raw::Bzip2", undef) for 1..18;
|
| |
+ }
|
| |
+
|
| |
+ # test decoding of XML content
|
| |
+ --
|
| |
+ 2.37.3
|
| |
+
|
| |
mspacek
commented 2 years ago
Changes:
6.42 2022-10-18 13:53:22Z
- We now don't consider the Content-Location header when asked
for the base URI. RFC 7231 says we shouldn't. (GH#51) (Neil Bowers)
- Increased the (max) buffer size for read() when processing form data,
from 2048 to 8192. This was suggested in RT#105184, as it improved
performance for them. (GH#59) (Neil Bowers)
6.41 2022-10-12 15:57:40Z
- Add maximum size for HTTP::Message->decoded_content
This can be used to limit the size of a decompressed HTTP response,
especially when making requests to untrusted or user-specified servers.
The $HTTP::Message::MAXIMUM_BODY_SIZE variable and the ->max_body_size
accessor can set this limit. (GH#181) (Max Maischein)