File tree Expand file tree Collapse file tree 3 files changed +6
-18
lines changed Expand file tree Collapse file tree 3 files changed +6
-18
lines changed Original file line number Diff line number Diff line change 11Revision history for HTTP-Message
22
33{{$NEXT}}
4+ - Made the Clone module a hard requirement, so we don't have to
5+ provide a fallback function for HTTP::Headers::clone().
6+ We require at least Clone 0.46, as that release now supports
7+ Perl back to 5.8.1, just like us. (GH#64) (Neil Bowers)
48
596.43 2022-10-22 14:50:35Z
610 - Remove dependency to IO::Uncompress::Bunzip2. (Michal Josef Spacek)
Original file line number Diff line number Diff line change @@ -22,6 +22,7 @@ LWP::MediaTypes = 6
2222MIME::Base64 = 2.1
2323perl = 5.008001
2424URI = 1.10
25+ Clone = 0.46
2526
2627[@Author::OALDERS]
2728; all these tests are TODO
@@ -35,11 +36,6 @@ URI = 1.10
3536StaticInstall.mode = on
3637StaticInstall.dry_run = 0
3738
38- [Prereqs::Soften]
39- to_relationship = suggests
40- copy_to = develop.requires
41- module = Clone
42-
4339[Prereqs::Soften / Brotli]
4440to_relationship = recommends
4541copy_to = test.recommends
Original file line number Diff line number Diff line change @@ -5,6 +5,7 @@ use warnings;
55
66our $VERSION = ' 6.44' ;
77
8+ use parent ' Clone' ;
89use Carp ();
910
1011# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
@@ -298,19 +299,6 @@ sub _process_newline {
298299}
299300
300301
301-
302- if (eval { require Clone; 1 }) {
303- *clone = \&Clone::clone;
304- } else {
305- *clone = sub {
306- my $self = shift ;
307- my $clone = HTTP::Headers-> new;
308- $self -> scan(sub { $clone -> push_header(@_ );} );
309- $clone ;
310- };
311- }
312-
313-
314302sub _date_header
315303{
316304 require HTTP::Date;
You can’t perform that action at this time.
0 commit comments