From d2a1812c186566cf9905f889c52f84a717c5d256 Mon Sep 17 00:00:00 2001 From: DongHun Kwak Date: Thu, 21 Jul 2022 11:28:26 +0900 Subject: [PATCH] Imported Upstream version 6.52 --- Changes | 4 +++ META.json | 62 ++++++++++++++++---------------- META.yml | 62 ++++++++++++++++---------------- Makefile.PL | 2 +- lib/LWP.pm | 2 +- lib/LWP/Authen/Basic.pm | 2 +- lib/LWP/Authen/Digest.pm | 14 ++------ lib/LWP/Authen/Ntlm.pm | 2 +- lib/LWP/ConnCache.pm | 2 +- lib/LWP/Debug.pm | 2 +- lib/LWP/Debug/TraceHTTP.pm | 2 +- lib/LWP/DebugFile.pm | 2 +- lib/LWP/MemberMixin.pm | 2 +- lib/LWP/Protocol.pm | 2 +- lib/LWP/Protocol/cpan.pm | 2 +- lib/LWP/Protocol/data.pm | 2 +- lib/LWP/Protocol/file.pm | 2 +- lib/LWP/Protocol/ftp.pm | 2 +- lib/LWP/Protocol/gopher.pm | 2 +- lib/LWP/Protocol/http.pm | 2 +- lib/LWP/Protocol/loopback.pm | 2 +- lib/LWP/Protocol/mailto.pm | 2 +- lib/LWP/Protocol/nntp.pm | 2 +- lib/LWP/Protocol/nogo.pm | 2 +- lib/LWP/RobotUA.pm | 2 +- lib/LWP/Simple.pm | 2 +- lib/LWP/UserAgent.pm | 2 +- xt/release/changes_has_content.t | 2 +- 28 files changed, 92 insertions(+), 98 deletions(-) diff --git a/Changes b/Changes index 5f236a7..85a590b 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,9 @@ Change history for libwww-perl +6.52 2021-01-07 21:20:51Z + - Remove block of code which creates message-digest auth request field + (GH#369) (Olaf Alders) + 6.51 2020-12-29 22:09:04Z - Fix proxy test on Windows (GH#358) (Olaf Alders) - Sort keys in Pod example of constructor defaults (GH#356) (Olaf Alders) diff --git a/META.json b/META.json index 5ffbe7a..c76a878 100644 --- a/META.json +++ b/META.json @@ -109,96 +109,96 @@ "provides" : { "LWP" : { "file" : "lib/LWP.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Authen::Basic" : { "file" : "lib/LWP/Authen/Basic.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Authen::Digest" : { "file" : "lib/LWP/Authen/Digest.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Authen::Ntlm" : { "file" : "lib/LWP/Authen/Ntlm.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::ConnCache" : { "file" : "lib/LWP/ConnCache.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Debug" : { "file" : "lib/LWP/Debug.pm", - "version" : "6.51", + "version" : "6.52", "x_deprecated" : 1 }, "LWP::Debug::TraceHTTP" : { "file" : "lib/LWP/Debug/TraceHTTP.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::DebugFile" : { "file" : "lib/LWP/DebugFile.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::MemberMixin" : { "file" : "lib/LWP/MemberMixin.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol" : { "file" : "lib/LWP/Protocol.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::cpan" : { "file" : "lib/LWP/Protocol/cpan.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::data" : { "file" : "lib/LWP/Protocol/data.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::file" : { "file" : "lib/LWP/Protocol/file.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::ftp" : { "file" : "lib/LWP/Protocol/ftp.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::gopher" : { "file" : "lib/LWP/Protocol/gopher.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::http" : { "file" : "lib/LWP/Protocol/http.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::loopback" : { "file" : "lib/LWP/Protocol/loopback.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::mailto" : { "file" : "lib/LWP/Protocol/mailto.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::nntp" : { "file" : "lib/LWP/Protocol/nntp.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Protocol::nogo" : { "file" : "lib/LWP/Protocol/nogo.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::RobotUA" : { "file" : "lib/LWP/RobotUA.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::Simple" : { "file" : "lib/LWP/Simple.pm", - "version" : "6.51" + "version" : "6.52" }, "LWP::UserAgent" : { "file" : "lib/LWP/UserAgent.pm", - "version" : "6.51" + "version" : "6.52" } }, "release_status" : "stable", @@ -215,7 +215,7 @@ "x_IRC" : "irc://irc.perl.org/#lwp", "x_MailingList" : "mailto:libwww@perl.org" }, - "version" : "6.51", + "version" : "6.52", "x_Dist_Zilla" : { "perl" : { "version" : "5.026001" @@ -313,7 +313,7 @@ "class" : "Dist::Zilla::Plugin::Git::Contributors", "config" : { "Dist::Zilla::Plugin::Git::Contributors" : { - "git_version" : "2.29.2", + "git_version" : "2.30.0", "include_authors" : 0, "include_releaser" : 1, "order_by" : "name", @@ -633,7 +633,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.29.2", + "git_version" : "2.30.0", "repo_root" : "." } }, @@ -764,7 +764,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.29.2", + "git_version" : "2.30.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -781,12 +781,12 @@ "branch" : null, "changelog" : "Changes", "signed" : 0, - "tag" : "v6.51", + "tag" : "v6.52", "tag_format" : "v%V", "tag_message" : "v%V" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.29.2", + "git_version" : "2.30.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -837,7 +837,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.29.2", + "git_version" : "2.30.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -857,7 +857,7 @@ "remotes_must_exist" : 1 }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.29.2", + "git_version" : "2.30.0", "repo_root" : "." } }, diff --git a/META.yml b/META.yml index 4e409d7..cfbedfa 100644 --- a/META.yml +++ b/META.yml @@ -30,74 +30,74 @@ no_index: provides: LWP: file: lib/LWP.pm - version: '6.51' + version: '6.52' LWP::Authen::Basic: file: lib/LWP/Authen/Basic.pm - version: '6.51' + version: '6.52' LWP::Authen::Digest: file: lib/LWP/Authen/Digest.pm - version: '6.51' + version: '6.52' LWP::Authen::Ntlm: file: lib/LWP/Authen/Ntlm.pm - version: '6.51' + version: '6.52' LWP::ConnCache: file: lib/LWP/ConnCache.pm - version: '6.51' + version: '6.52' LWP::Debug: file: lib/LWP/Debug.pm - version: '6.51' + version: '6.52' x_deprecated: 1 LWP::Debug::TraceHTTP: file: lib/LWP/Debug/TraceHTTP.pm - version: '6.51' + version: '6.52' LWP::DebugFile: file: lib/LWP/DebugFile.pm - version: '6.51' + version: '6.52' LWP::MemberMixin: file: lib/LWP/MemberMixin.pm - version: '6.51' + version: '6.52' LWP::Protocol: file: lib/LWP/Protocol.pm - version: '6.51' + version: '6.52' LWP::Protocol::cpan: file: lib/LWP/Protocol/cpan.pm - version: '6.51' + version: '6.52' LWP::Protocol::data: file: lib/LWP/Protocol/data.pm - version: '6.51' + version: '6.52' LWP::Protocol::file: file: lib/LWP/Protocol/file.pm - version: '6.51' + version: '6.52' LWP::Protocol::ftp: file: lib/LWP/Protocol/ftp.pm - version: '6.51' + version: '6.52' LWP::Protocol::gopher: file: lib/LWP/Protocol/gopher.pm - version: '6.51' + version: '6.52' LWP::Protocol::http: file: lib/LWP/Protocol/http.pm - version: '6.51' + version: '6.52' LWP::Protocol::loopback: file: lib/LWP/Protocol/loopback.pm - version: '6.51' + version: '6.52' LWP::Protocol::mailto: file: lib/LWP/Protocol/mailto.pm - version: '6.51' + version: '6.52' LWP::Protocol::nntp: file: lib/LWP/Protocol/nntp.pm - version: '6.51' + version: '6.52' LWP::Protocol::nogo: file: lib/LWP/Protocol/nogo.pm - version: '6.51' + version: '6.52' LWP::RobotUA: file: lib/LWP/RobotUA.pm - version: '6.51' + version: '6.52' LWP::Simple: file: lib/LWP/Simple.pm - version: '6.51' + version: '6.52' LWP::UserAgent: file: lib/LWP/UserAgent.pm - version: '6.51' + version: '6.52' requires: Digest::MD5: '0' Encode: '2.12' @@ -134,7 +134,7 @@ resources: bugtracker: https://github.com/libwww-perl/libwww-perl/issues homepage: https://github.com/libwww-perl/libwww-perl repository: https://github.com/libwww-perl/libwww-perl.git -version: '6.51' +version: '6.52' x_Dist_Zilla: perl: version: '5.026001' @@ -210,7 +210,7 @@ x_Dist_Zilla: class: Dist::Zilla::Plugin::Git::Contributors config: Dist::Zilla::Plugin::Git::Contributors: - git_version: 2.29.2 + git_version: 2.30.0 include_authors: 0 include_releaser: 1 order_by: name @@ -481,7 +481,7 @@ x_Dist_Zilla: allow_dirty_match: [] changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.29.2 + git_version: 2.30.0 repo_root: . name: Git::Check version: '2.047' @@ -579,7 +579,7 @@ x_Dist_Zilla: allow_dirty_match: [] changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.29.2 + git_version: 2.30.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -592,11 +592,11 @@ x_Dist_Zilla: branch: ~ changelog: Changes signed: 0 - tag: v6.51 + tag: v6.52 tag_format: v%V tag_message: v%V Dist::Zilla::Role::Git::Repo: - git_version: 2.29.2 + git_version: 2.30.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -634,7 +634,7 @@ x_Dist_Zilla: - (?^:^lib/.*\.pm$) changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.29.2 + git_version: 2.30.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -648,7 +648,7 @@ x_Dist_Zilla: - origin remotes_must_exist: 1 Dist::Zilla::Role::Git::Repo: - git_version: 2.29.2 + git_version: 2.30.0 repo_root: . name: Git::Push version: '2.047' diff --git a/Makefile.PL b/Makefile.PL index 6f33da1..37c43dd 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -86,7 +86,7 @@ my %WriteMakefileArgs = ( "Test::Needs" => 0, "Test::RequiresInternet" => 0 }, - "VERSION" => "6.51", + "VERSION" => "6.52", "test" => { "TESTS" => "t/*.t t/base/*.t t/base/protocols/*.t t/leak/*.t t/local/*.t t/robot/*.t" } diff --git a/lib/LWP.pm b/lib/LWP.pm index f88a69a..32ed569 100644 --- a/lib/LWP.pm +++ b/lib/LWP.pm @@ -1,6 +1,6 @@ package LWP; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require LWP::UserAgent; # this should load everything you need diff --git a/lib/LWP/Authen/Basic.pm b/lib/LWP/Authen/Basic.pm index 6678d33..0f00778 100644 --- a/lib/LWP/Authen/Basic.pm +++ b/lib/LWP/Authen/Basic.pm @@ -2,7 +2,7 @@ package LWP::Authen::Basic; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require Encode; require MIME::Base64; diff --git a/lib/LWP/Authen/Digest.pm b/lib/LWP/Authen/Digest.pm index 239aa57..5e7e3fc 100644 --- a/lib/LWP/Authen/Digest.pm +++ b/lib/LWP/Authen/Digest.pm @@ -3,7 +3,7 @@ package LWP::Authen::Digest; use strict; use base 'LWP::Authen::Basic'; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require Digest::MD5; @@ -59,17 +59,7 @@ sub auth_header { @resp{qw(qop cnonce nc)} = ("auth", $cnonce, $nc); } - my(@order) = qw(username realm qop algorithm uri nonce nc cnonce response); - if($request->method =~ /^(?:POST|PUT)$/) { - $md5->add($request->content); - my $content = $md5->hexdigest; - $md5->reset; - $md5->add(join(":", @digest[0..1], $content)); - $md5->reset; - $resp{"message-digest"} = $md5->hexdigest; - push(@order, "message-digest"); - } - push(@order, "opaque"); + my(@order) = qw(username realm qop algorithm uri nonce nc cnonce response opaque); my @pairs; for (@order) { next unless defined $resp{$_}; diff --git a/lib/LWP/Authen/Ntlm.pm b/lib/LWP/Authen/Ntlm.pm index dca4440..f6f7c92 100644 --- a/lib/LWP/Authen/Ntlm.pm +++ b/lib/LWP/Authen/Ntlm.pm @@ -2,7 +2,7 @@ package LWP::Authen::Ntlm; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; use Authen::NTLM "1.02"; use MIME::Base64 "2.12"; diff --git a/lib/LWP/ConnCache.pm b/lib/LWP/ConnCache.pm index 80d9cbb..a414e4c 100644 --- a/lib/LWP/ConnCache.pm +++ b/lib/LWP/ConnCache.pm @@ -2,7 +2,7 @@ package LWP::ConnCache; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; our $DEBUG; sub new { diff --git a/lib/LWP/Debug.pm b/lib/LWP/Debug.pm index fd28ec9..4769516 100644 --- a/lib/LWP/Debug.pm +++ b/lib/LWP/Debug.pm @@ -1,6 +1,6 @@ package LWP::Debug; # legacy -our $VERSION = '6.51'; +our $VERSION = '6.52'; require Exporter; our @ISA = qw(Exporter); diff --git a/lib/LWP/Debug/TraceHTTP.pm b/lib/LWP/Debug/TraceHTTP.pm index 7fe4836..89508c0 100644 --- a/lib/LWP/Debug/TraceHTTP.pm +++ b/lib/LWP/Debug/TraceHTTP.pm @@ -11,7 +11,7 @@ package LWP::Debug::TraceHTTP; use strict; use base 'LWP::Protocol::http'; -our $VERSION = '6.51'; +our $VERSION = '6.52'; package # hide from PAUSE LWP::Debug::TraceHTTP::Socket; diff --git a/lib/LWP/DebugFile.pm b/lib/LWP/DebugFile.pm index 20487d6..acafa59 100644 --- a/lib/LWP/DebugFile.pm +++ b/lib/LWP/DebugFile.pm @@ -1,6 +1,6 @@ package LWP::DebugFile; -our $VERSION = '6.51'; +our $VERSION = '6.52'; # legacy stub diff --git a/lib/LWP/MemberMixin.pm b/lib/LWP/MemberMixin.pm index 832e989..2da8ddb 100644 --- a/lib/LWP/MemberMixin.pm +++ b/lib/LWP/MemberMixin.pm @@ -1,6 +1,6 @@ package LWP::MemberMixin; -our $VERSION = '6.51'; +our $VERSION = '6.52'; sub _elem { my $self = shift; diff --git a/lib/LWP/Protocol.pm b/lib/LWP/Protocol.pm index 5a16392..e38e679 100644 --- a/lib/LWP/Protocol.pm +++ b/lib/LWP/Protocol.pm @@ -2,7 +2,7 @@ package LWP::Protocol; use base 'LWP::MemberMixin'; -our $VERSION = '6.51'; +our $VERSION = '6.52'; use strict; use Carp (); diff --git a/lib/LWP/Protocol/cpan.pm b/lib/LWP/Protocol/cpan.pm index 8658f84..7308709 100644 --- a/lib/LWP/Protocol/cpan.pm +++ b/lib/LWP/Protocol/cpan.pm @@ -4,7 +4,7 @@ use strict; use base qw(LWP::Protocol); -our $VERSION = '6.51'; +our $VERSION = '6.52'; require URI; require HTTP::Status; diff --git a/lib/LWP/Protocol/data.pm b/lib/LWP/Protocol/data.pm index 9a5c756..fa2daa3 100644 --- a/lib/LWP/Protocol/data.pm +++ b/lib/LWP/Protocol/data.pm @@ -4,7 +4,7 @@ package LWP::Protocol::data; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/file.pm b/lib/LWP/Protocol/file.pm index 1152580..06f45e6 100644 --- a/lib/LWP/Protocol/file.pm +++ b/lib/LWP/Protocol/file.pm @@ -4,7 +4,7 @@ use base qw(LWP::Protocol); use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require LWP::MediaTypes; require HTTP::Request; diff --git a/lib/LWP/Protocol/ftp.pm b/lib/LWP/Protocol/ftp.pm index 3dd2cb1..d7415d7 100644 --- a/lib/LWP/Protocol/ftp.pm +++ b/lib/LWP/Protocol/ftp.pm @@ -5,7 +5,7 @@ package LWP::Protocol::ftp; use base qw(LWP::Protocol); use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; use Carp (); use HTTP::Status (); diff --git a/lib/LWP/Protocol/gopher.pm b/lib/LWP/Protocol/gopher.pm index 709d369..c38c7a6 100644 --- a/lib/LWP/Protocol/gopher.pm +++ b/lib/LWP/Protocol/gopher.pm @@ -9,7 +9,7 @@ package LWP::Protocol::gopher; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/http.pm b/lib/LWP/Protocol/http.pm index 315cfba..58827a1 100644 --- a/lib/LWP/Protocol/http.pm +++ b/lib/LWP/Protocol/http.pm @@ -2,7 +2,7 @@ package LWP::Protocol::http; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/loopback.pm b/lib/LWP/Protocol/loopback.pm index df5ce75..b81ffcb 100644 --- a/lib/LWP/Protocol/loopback.pm +++ b/lib/LWP/Protocol/loopback.pm @@ -2,7 +2,7 @@ package LWP::Protocol::loopback; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require HTTP::Response; diff --git a/lib/LWP/Protocol/mailto.pm b/lib/LWP/Protocol/mailto.pm index aaeb698..71f0319 100644 --- a/lib/LWP/Protocol/mailto.pm +++ b/lib/LWP/Protocol/mailto.pm @@ -11,7 +11,7 @@ require HTTP::Status; use Carp; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; use base qw(LWP::Protocol); our $SENDMAIL; diff --git a/lib/LWP/Protocol/nntp.pm b/lib/LWP/Protocol/nntp.pm index 703e5e5..33f16df 100644 --- a/lib/LWP/Protocol/nntp.pm +++ b/lib/LWP/Protocol/nntp.pm @@ -4,7 +4,7 @@ package LWP::Protocol::nntp; use base qw(LWP::Protocol); -our $VERSION = '6.51'; +our $VERSION = '6.52'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/nogo.pm b/lib/LWP/Protocol/nogo.pm index cb86332..ff9e4b2 100644 --- a/lib/LWP/Protocol/nogo.pm +++ b/lib/LWP/Protocol/nogo.pm @@ -7,7 +7,7 @@ package LWP::Protocol::nogo; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/RobotUA.pm b/lib/LWP/RobotUA.pm index 7b3a00e..6523698 100644 --- a/lib/LWP/RobotUA.pm +++ b/lib/LWP/RobotUA.pm @@ -2,7 +2,7 @@ package LWP::RobotUA; use base qw(LWP::UserAgent); -our $VERSION = '6.51'; +our $VERSION = '6.52'; require WWW::RobotRules; require HTTP::Request; diff --git a/lib/LWP/Simple.pm b/lib/LWP/Simple.pm index d3f9cd2..9d4c58d 100644 --- a/lib/LWP/Simple.pm +++ b/lib/LWP/Simple.pm @@ -2,7 +2,7 @@ package LWP::Simple; use strict; -our $VERSION = '6.51'; +our $VERSION = '6.52'; require Exporter; diff --git a/lib/LWP/UserAgent.pm b/lib/LWP/UserAgent.pm index 8fa92ef..c67b130 100644 --- a/lib/LWP/UserAgent.pm +++ b/lib/LWP/UserAgent.pm @@ -15,7 +15,7 @@ use LWP::Protocol (); use Scalar::Util qw(blessed); use Try::Tiny qw(try catch); -our $VERSION = '6.51'; +our $VERSION = '6.52'; sub new { diff --git a/xt/release/changes_has_content.t b/xt/release/changes_has_content.t index f70671e..165d50d 100644 --- a/xt/release/changes_has_content.t +++ b/xt/release/changes_has_content.t @@ -8,7 +8,7 @@ if (($ENV{TRAVIS_PULL_REQUEST} || '') eq 'false') { note 'Checking Changes'; my $changes_file = 'Changes'; -my $newver = '6.51'; +my $newver = '6.52'; my $trial_token = '-TRIAL'; my $encoding = 'UTF-8'; -- 2.34.1