From 6216f08a4c901f0ad4bf6105a8f7eff3084b264e Mon Sep 17 00:00:00 2001 From: DongHun Kwak Date: Thu, 21 Jul 2022 11:28:27 +0900 Subject: [PATCH] Imported Upstream version 6.56 --- CONTRIBUTING.md | 11 ++- Changes | 6 ++ LICENSE | 12 +-- MANIFEST | 2 +- META.json | 127 ++++++++++++++++--------------- META.yml | 127 ++++++++++++++++--------------- Makefile.PL | 2 +- lib/LWP.pm | 2 +- lib/LWP/Authen/Basic.pm | 2 +- lib/LWP/Authen/Digest.pm | 2 +- 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 | 47 ++++++------ t/base/default_content_type.t | 104 ++++++++++++++++++------- t/base/proxy.t | 72 +++++++++++++++++- xt/release/changes_has_content.t | 2 +- 33 files changed, 342 insertions(+), 214 deletions(-) diff --git a/CONTRIBUTING.md b/CONTRIBUTING.md index f4c8a77..e7a275d 100644 --- a/CONTRIBUTING.md +++ b/CONTRIBUTING.md @@ -59,10 +59,9 @@ instructions for doing that is available here: https://help.github.com/articles/creating-a-pull-request -All pull requests for this distribution will be automatically tested on Linux -by Travis at: https://travis-ci.com/libwww-perl/libwww-perl -Results will be visible in the pull request on GitHub. Follow the appropriate -links for details when tests fail. +All pull requests for this distribution will be automatically tested on Linux, +MacOS, and Windows by GitHub Workflows. Results will be visible in the pull +request on GitHub. Follow the appropriate links for details when tests fail. If you have found a bug, but do not have an accompanying patch to fix it, you can submit an issue report here: @@ -116,8 +115,8 @@ You can learn more about Dist::Zilla at http://dzil.org/ This distribution maintains the generated `META.json` and either `Makefile.PL` or `Build.PL` in the repository. This allows two things: -[Travis CI](https://travis-ci.org/) can build and test the distribution without -requiring Dist::Zilla, and the distribution can be installed directly from +GitHub Workflows can build and test the distribution without requiring +Dist::Zilla, and the distribution can be installed directly from Github or a local git repository using `cpanm` for testing (again, not requiring Dist::Zilla). diff --git a/Changes b/Changes index e44023a..89790ba 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,11 @@ Change history for libwww-perl +6.56 2021-08-17 13:57:12Z + - Update the CONTRIBUTING doc to no longer reference TravisCI. (GH #384) (Slaven Rezić) + - Increase test coverage for env_proxy() (GH#383) (Slaven Rezić) + - When a truthy Content-Type is provided, override the default (GH#385) + (Matthew Horsfall (alh)) + 6.55 2021-06-17 13:57:06Z - Attempt to avoid rare fails in redirect.t (GH#380) (Arne Johannessen) diff --git a/LICENSE b/LICENSE index 46c936f..6cd4925 100644 --- a/LICENSE +++ b/LICENSE @@ -292,21 +292,21 @@ Definitions: - "Package" refers to the collection of files distributed by the Copyright Holder, and derivatives of that collection of files created through - textual modification. + textual modification. - "Standard Version" refers to such a Package if it has not been modified, or has been modified in accordance with the wishes of the Copyright - Holder. + Holder. - "Copyright Holder" is whoever is named in the copyright or copyrights for - the package. + the package. - "You" is you, if you're thinking about copying or distributing this Package. - "Reasonable copying fee" is whatever you can justify on the basis of media cost, duplication charges, time of people involved, and so on. (You will not be required to justify it to the Copyright Holder, but only to the - computing community at large as a market that must bear the fee.) + computing community at large as a market that must bear the fee.) - "Freely Available" means that no fee is charged for the item itself, though there may be fees involved in handling the item. It also means that recipients of the item may redistribute it under the same conditions they - received it. + received it. 1. You may make and give away verbatim copies of the source form of the Standard Version of this Package without restriction, provided that you @@ -373,7 +373,7 @@ products derived from this software without specific prior written permission. 9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF -MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. The End diff --git a/MANIFEST b/MANIFEST index e91d166..c67938a 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.020. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.024. CONTRIBUTING.md Changes INSTALL diff --git a/META.json b/META.json index d6053a5..c993685 100644 --- a/META.json +++ b/META.json @@ -4,7 +4,7 @@ "Gisle Aas " ], "dynamic_config" : 1, - "generated_by" : "Dist::Zilla version 6.020, CPAN::Meta::Converter version 2.150010", + "generated_by" : "Dist::Zilla version 6.024, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -109,96 +109,96 @@ "provides" : { "LWP" : { "file" : "lib/LWP.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Authen::Basic" : { "file" : "lib/LWP/Authen/Basic.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Authen::Digest" : { "file" : "lib/LWP/Authen/Digest.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Authen::Ntlm" : { "file" : "lib/LWP/Authen/Ntlm.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::ConnCache" : { "file" : "lib/LWP/ConnCache.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Debug" : { "file" : "lib/LWP/Debug.pm", - "version" : "6.55", + "version" : "6.56", "x_deprecated" : 1 }, "LWP::Debug::TraceHTTP" : { "file" : "lib/LWP/Debug/TraceHTTP.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::DebugFile" : { "file" : "lib/LWP/DebugFile.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::MemberMixin" : { "file" : "lib/LWP/MemberMixin.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol" : { "file" : "lib/LWP/Protocol.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::cpan" : { "file" : "lib/LWP/Protocol/cpan.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::data" : { "file" : "lib/LWP/Protocol/data.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::file" : { "file" : "lib/LWP/Protocol/file.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::ftp" : { "file" : "lib/LWP/Protocol/ftp.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::gopher" : { "file" : "lib/LWP/Protocol/gopher.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::http" : { "file" : "lib/LWP/Protocol/http.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::loopback" : { "file" : "lib/LWP/Protocol/loopback.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::mailto" : { "file" : "lib/LWP/Protocol/mailto.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::nntp" : { "file" : "lib/LWP/Protocol/nntp.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Protocol::nogo" : { "file" : "lib/LWP/Protocol/nogo.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::RobotUA" : { "file" : "lib/LWP/RobotUA.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::Simple" : { "file" : "lib/LWP/Simple.pm", - "version" : "6.55" + "version" : "6.56" }, "LWP::UserAgent" : { "file" : "lib/LWP/UserAgent.pm", - "version" : "6.55" + "version" : "6.56" } }, "release_status" : "stable", @@ -215,7 +215,7 @@ "x_IRC" : "irc://irc.perl.org/#lwp", "x_MailingList" : "mailto:libwww@perl.org" }, - "version" : "6.55", + "version" : "6.56", "x_Dist_Zilla" : { "perl" : { "version" : "5.030003" @@ -242,12 +242,12 @@ } }, "name" : "Git::GatherDir", - "version" : "2.047" + "version" : "2.048" }, { "class" : "Dist::Zilla::Plugin::MetaConfig", "name" : "MetaConfig", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::MetaProvides::Package", @@ -257,7 +257,7 @@ { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : "MetaProvides::Package/AUTOVIV/:InstallModulesPM", - "version" : "6.020" + "version" : "6.024" } ], "include_underscores" : 0 @@ -279,22 +279,22 @@ { "class" : "Dist::Zilla::Plugin::MetaNoIndex", "name" : "MetaNoIndex", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::MetaYAML", "name" : "MetaYAML", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::MetaJSON", "name" : "MetaJSON", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::MetaResources", "name" : "MetaResources", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::Deprecated", @@ -331,12 +331,12 @@ { "class" : "Dist::Zilla::Plugin::Manifest", "name" : "Manifest", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::License", "name" : "License", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::InstallGuide", @@ -352,7 +352,7 @@ { "class" : "Dist::Zilla::Plugin::ExecDir", "name" : "ExecDir", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::Prereqs::FromCPANfile", @@ -375,11 +375,11 @@ "config" : { "Dist::Zilla::Plugin::MakeMaker" : { "make_path" : "make", - "version" : "6.020" + "version" : "6.024" }, "Dist::Zilla::Role::TestRunner" : { - "default_jobs" : "4", - "version" : "6.020" + "default_jobs" : "1", + "version" : "6.024" } }, "name" : "MakeMaker::Awesome", @@ -477,7 +477,7 @@ { "class" : "Dist::Zilla::Plugin::PodSyntaxTests", "name" : "PodSyntaxTests", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable", @@ -633,7 +633,7 @@ } }, "name" : "Git::Check", - "version" : "2.047" + "version" : "2.048" }, { "class" : "Dist::Zilla::Plugin::CheckStrictVersion", @@ -644,7 +644,7 @@ "class" : "Dist::Zilla::Plugin::RunExtraTests", "config" : { "Dist::Zilla::Role::TestRunner" : { - "default_jobs" : "4" + "default_jobs" : "1" } }, "name" : "RunExtraTests", @@ -663,12 +663,12 @@ { "class" : "Dist::Zilla::Plugin::TestRelease", "name" : "TestRelease", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::UploadToCPAN", "name" : "UploadToCPAN", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod", @@ -703,7 +703,7 @@ } }, "name" : "@Git::VersionManager/pluginbundle version", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::RewriteVersion::Transitional", @@ -767,7 +767,7 @@ } }, "name" : "@Git::VersionManager/release snapshot", - "version" : "2.047" + "version" : "2.048" }, { "class" : "Dist::Zilla::Plugin::Git::Tag", @@ -776,7 +776,7 @@ "branch" : null, "changelog" : "Changes", "signed" : 0, - "tag" : "v6.55", + "tag" : "v6.56", "tag_format" : "v%V", "tag_message" : "v%V" }, @@ -789,7 +789,7 @@ } }, "name" : "@Git::VersionManager/Git::Tag", - "version" : "2.047" + "version" : "2.048" }, { "class" : "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional", @@ -810,7 +810,7 @@ { "class" : "Dist::Zilla::Plugin::NextRelease", "name" : "@Git::VersionManager/NextRelease", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::Git::Commit", @@ -840,7 +840,7 @@ } }, "name" : "@Git::VersionManager/post-release commit", - "version" : "2.047" + "version" : "2.048" }, { "class" : "Dist::Zilla::Plugin::Git::Push", @@ -857,67 +857,67 @@ } }, "name" : "Git::Push", - "version" : "2.047" + "version" : "2.048" }, { "class" : "Dist::Zilla::Plugin::ConfirmRelease", "name" : "ConfirmRelease", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":InstallModules", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":IncModules", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":TestFiles", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":ExtraTestFiles", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":ExecFiles", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":PerlExecFiles", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":ShareFiles", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":MainModule", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":AllFiles", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":NoFiles", - "version" : "6.020" + "version" : "6.024" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : "MetaProvides::Package/AUTOVIV/:InstallModulesPM", - "version" : "6.020" + "version" : "6.024" } ], "zilla" : { @@ -925,7 +925,7 @@ "config" : { "is_trial" : 0 }, - "version" : "6.020" + "version" : "6.024" } }, "x_contributors" : [ @@ -1012,6 +1012,7 @@ "Shoichi Kaji ", "simbabque ", "Slaven Rezic ", + "Slaven Rezic ", "Spiros Denaxas ", "Steffen Ullrich ", "Steve Hay ", diff --git a/META.yml b/META.yml index 99a2e72..e5ce173 100644 --- a/META.yml +++ b/META.yml @@ -18,7 +18,7 @@ configure_requires: Getopt::Long: '0' Module::Metadata: '0' dynamic_config: 1 -generated_by: 'Dist::Zilla version 6.020, CPAN::Meta::Converter version 2.150010' +generated_by: 'Dist::Zilla version 6.024, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -31,74 +31,74 @@ no_index: provides: LWP: file: lib/LWP.pm - version: '6.55' + version: '6.56' LWP::Authen::Basic: file: lib/LWP/Authen/Basic.pm - version: '6.55' + version: '6.56' LWP::Authen::Digest: file: lib/LWP/Authen/Digest.pm - version: '6.55' + version: '6.56' LWP::Authen::Ntlm: file: lib/LWP/Authen/Ntlm.pm - version: '6.55' + version: '6.56' LWP::ConnCache: file: lib/LWP/ConnCache.pm - version: '6.55' + version: '6.56' LWP::Debug: file: lib/LWP/Debug.pm - version: '6.55' + version: '6.56' x_deprecated: 1 LWP::Debug::TraceHTTP: file: lib/LWP/Debug/TraceHTTP.pm - version: '6.55' + version: '6.56' LWP::DebugFile: file: lib/LWP/DebugFile.pm - version: '6.55' + version: '6.56' LWP::MemberMixin: file: lib/LWP/MemberMixin.pm - version: '6.55' + version: '6.56' LWP::Protocol: file: lib/LWP/Protocol.pm - version: '6.55' + version: '6.56' LWP::Protocol::cpan: file: lib/LWP/Protocol/cpan.pm - version: '6.55' + version: '6.56' LWP::Protocol::data: file: lib/LWP/Protocol/data.pm - version: '6.55' + version: '6.56' LWP::Protocol::file: file: lib/LWP/Protocol/file.pm - version: '6.55' + version: '6.56' LWP::Protocol::ftp: file: lib/LWP/Protocol/ftp.pm - version: '6.55' + version: '6.56' LWP::Protocol::gopher: file: lib/LWP/Protocol/gopher.pm - version: '6.55' + version: '6.56' LWP::Protocol::http: file: lib/LWP/Protocol/http.pm - version: '6.55' + version: '6.56' LWP::Protocol::loopback: file: lib/LWP/Protocol/loopback.pm - version: '6.55' + version: '6.56' LWP::Protocol::mailto: file: lib/LWP/Protocol/mailto.pm - version: '6.55' + version: '6.56' LWP::Protocol::nntp: file: lib/LWP/Protocol/nntp.pm - version: '6.55' + version: '6.56' LWP::Protocol::nogo: file: lib/LWP/Protocol/nogo.pm - version: '6.55' + version: '6.56' LWP::RobotUA: file: lib/LWP/RobotUA.pm - version: '6.55' + version: '6.56' LWP::Simple: file: lib/LWP/Simple.pm - version: '6.55' + version: '6.56' LWP::UserAgent: file: lib/LWP/UserAgent.pm - version: '6.55' + version: '6.56' 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.55' +version: '6.56' x_Dist_Zilla: perl: version: '5.030003' @@ -156,11 +156,11 @@ x_Dist_Zilla: Dist::Zilla::Plugin::Git::GatherDir: include_untracked: 0 name: Git::GatherDir - version: '2.047' + version: '2.048' - class: Dist::Zilla::Plugin::MetaConfig name: MetaConfig - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::MetaProvides::Package config: @@ -169,7 +169,7 @@ x_Dist_Zilla: - class: Dist::Zilla::Plugin::FinderCode name: MetaProvides::Package/AUTOVIV/:InstallModulesPM - version: '6.020' + version: '6.024' include_underscores: 0 Dist::Zilla::Role::MetaProvider::Provider: $Dist::Zilla::Role::MetaProvider::Provider::VERSION: '2.002004' @@ -184,19 +184,19 @@ x_Dist_Zilla: - class: Dist::Zilla::Plugin::MetaNoIndex name: MetaNoIndex - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::MetaYAML name: MetaYAML - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::MetaJSON name: MetaJSON - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::MetaResources name: MetaResources - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::Deprecated config: @@ -224,11 +224,11 @@ x_Dist_Zilla: - class: Dist::Zilla::Plugin::Manifest name: Manifest - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::License name: License - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::InstallGuide config: @@ -240,7 +240,7 @@ x_Dist_Zilla: - class: Dist::Zilla::Plugin::ExecDir name: ExecDir - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::Prereqs::FromCPANfile name: Prereqs::FromCPANfile @@ -258,10 +258,10 @@ x_Dist_Zilla: config: Dist::Zilla::Plugin::MakeMaker: make_path: make - version: '6.020' + version: '6.024' Dist::Zilla::Role::TestRunner: - default_jobs: '4' - version: '6.020' + default_jobs: '1' + version: '6.024' name: MakeMaker::Awesome version: '0.48' - @@ -335,7 +335,7 @@ x_Dist_Zilla: - class: Dist::Zilla::Plugin::PodSyntaxTests name: PodSyntaxTests - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable name: Test::Pod::Coverage::Configurable @@ -480,7 +480,7 @@ x_Dist_Zilla: git_version: 2.32.0 repo_root: . name: Git::Check - version: '2.047' + version: '2.048' - class: Dist::Zilla::Plugin::CheckStrictVersion name: CheckStrictVersion @@ -489,7 +489,7 @@ x_Dist_Zilla: class: Dist::Zilla::Plugin::RunExtraTests config: Dist::Zilla::Role::TestRunner: - default_jobs: '4' + default_jobs: '1' name: RunExtraTests version: '0.029' - @@ -503,11 +503,11 @@ x_Dist_Zilla: - class: Dist::Zilla::Plugin::TestRelease name: TestRelease - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::UploadToCPAN name: UploadToCPAN - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::ReadmeAnyFromPod config: @@ -532,7 +532,7 @@ x_Dist_Zilla: phase: develop type: recommends name: '@Git::VersionManager/pluginbundle version' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::RewriteVersion::Transitional config: @@ -580,7 +580,7 @@ x_Dist_Zilla: Dist::Zilla::Role::Git::StringFormatter: time_zone: local name: '@Git::VersionManager/release snapshot' - version: '2.047' + version: '2.048' - class: Dist::Zilla::Plugin::Git::Tag config: @@ -588,7 +588,7 @@ x_Dist_Zilla: branch: ~ changelog: Changes signed: 0 - tag: v6.55 + tag: v6.56 tag_format: v%V tag_message: v%V Dist::Zilla::Role::Git::Repo: @@ -597,7 +597,7 @@ x_Dist_Zilla: Dist::Zilla::Role::Git::StringFormatter: time_zone: local name: '@Git::VersionManager/Git::Tag' - version: '2.047' + version: '2.048' - class: Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional config: @@ -613,7 +613,7 @@ x_Dist_Zilla: - class: Dist::Zilla::Plugin::NextRelease name: '@Git::VersionManager/NextRelease' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::Git::Commit config: @@ -635,7 +635,7 @@ x_Dist_Zilla: Dist::Zilla::Role::Git::StringFormatter: time_zone: local name: '@Git::VersionManager/post-release commit' - version: '2.047' + version: '2.048' - class: Dist::Zilla::Plugin::Git::Push config: @@ -647,60 +647,60 @@ x_Dist_Zilla: git_version: 2.32.0 repo_root: . name: Git::Push - version: '2.047' + version: '2.048' - class: Dist::Zilla::Plugin::ConfirmRelease name: ConfirmRelease - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':InstallModules' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':IncModules' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':TestFiles' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':ExtraTestFiles' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':ExecFiles' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':PerlExecFiles' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':ShareFiles' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':MainModule' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':AllFiles' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: ':NoFiles' - version: '6.020' + version: '6.024' - class: Dist::Zilla::Plugin::FinderCode name: MetaProvides::Package/AUTOVIV/:InstallModulesPM - version: '6.020' + version: '6.024' zilla: class: Dist::Zilla::Dist::Builder config: is_trial: '0' - version: '6.020' + version: '6.024' x_contributors: - 'Adam Kennedy ' - 'Adam Sjogren ' @@ -785,6 +785,7 @@ x_contributors: - 'Shoichi Kaji ' - 'simbabque ' - 'Slaven Rezic ' + - 'Slaven Rezic ' - 'Spiros Denaxas ' - 'Steffen Ullrich ' - 'Steve Hay ' diff --git a/Makefile.PL b/Makefile.PL index d6211d3..1b6f4db 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -86,7 +86,7 @@ my %WriteMakefileArgs = ( "Test::Needs" => 0, "Test::RequiresInternet" => 0 }, - "VERSION" => "6.55", + "VERSION" => "6.56", "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 c59e6bd..ad717d1 100644 --- a/lib/LWP.pm +++ b/lib/LWP.pm @@ -1,6 +1,6 @@ package LWP; -our $VERSION = '6.55'; +our $VERSION = '6.56'; require LWP::UserAgent; # this should load everything you need diff --git a/lib/LWP/Authen/Basic.pm b/lib/LWP/Authen/Basic.pm index bc64af2..39862de 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.55'; +our $VERSION = '6.56'; require Encode; require MIME::Base64; diff --git a/lib/LWP/Authen/Digest.pm b/lib/LWP/Authen/Digest.pm index a6a16fc..5f55559 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.55'; +our $VERSION = '6.56'; require Digest::MD5; diff --git a/lib/LWP/Authen/Ntlm.pm b/lib/LWP/Authen/Ntlm.pm index 05beb88..43227a9 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.55'; +our $VERSION = '6.56'; use Authen::NTLM "1.02"; use MIME::Base64 "2.12"; diff --git a/lib/LWP/ConnCache.pm b/lib/LWP/ConnCache.pm index 7d1386c..9d6fee8 100644 --- a/lib/LWP/ConnCache.pm +++ b/lib/LWP/ConnCache.pm @@ -2,7 +2,7 @@ package LWP::ConnCache; use strict; -our $VERSION = '6.55'; +our $VERSION = '6.56'; our $DEBUG; sub new { diff --git a/lib/LWP/Debug.pm b/lib/LWP/Debug.pm index 3871a17..b49fbcc 100644 --- a/lib/LWP/Debug.pm +++ b/lib/LWP/Debug.pm @@ -1,6 +1,6 @@ package LWP::Debug; # legacy -our $VERSION = '6.55'; +our $VERSION = '6.56'; require Exporter; our @ISA = qw(Exporter); diff --git a/lib/LWP/Debug/TraceHTTP.pm b/lib/LWP/Debug/TraceHTTP.pm index 758068b..1faa088 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.55'; +our $VERSION = '6.56'; package # hide from PAUSE LWP::Debug::TraceHTTP::Socket; diff --git a/lib/LWP/DebugFile.pm b/lib/LWP/DebugFile.pm index cd87fc0..5660f99 100644 --- a/lib/LWP/DebugFile.pm +++ b/lib/LWP/DebugFile.pm @@ -1,6 +1,6 @@ package LWP::DebugFile; -our $VERSION = '6.55'; +our $VERSION = '6.56'; # legacy stub diff --git a/lib/LWP/MemberMixin.pm b/lib/LWP/MemberMixin.pm index a66159d..b0abff8 100644 --- a/lib/LWP/MemberMixin.pm +++ b/lib/LWP/MemberMixin.pm @@ -1,6 +1,6 @@ package LWP::MemberMixin; -our $VERSION = '6.55'; +our $VERSION = '6.56'; sub _elem { my $self = shift; diff --git a/lib/LWP/Protocol.pm b/lib/LWP/Protocol.pm index 0765c2b..8d53734 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.55'; +our $VERSION = '6.56'; use strict; use Carp (); diff --git a/lib/LWP/Protocol/cpan.pm b/lib/LWP/Protocol/cpan.pm index 0b9ee9a..a61c3c7 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.55'; +our $VERSION = '6.56'; require URI; require HTTP::Status; diff --git a/lib/LWP/Protocol/data.pm b/lib/LWP/Protocol/data.pm index 6d137c9..82b45b7 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.55'; +our $VERSION = '6.56'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/file.pm b/lib/LWP/Protocol/file.pm index af0d929..16da400 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.55'; +our $VERSION = '6.56'; require LWP::MediaTypes; require HTTP::Request; diff --git a/lib/LWP/Protocol/ftp.pm b/lib/LWP/Protocol/ftp.pm index 8a22164..42c94c8 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.55'; +our $VERSION = '6.56'; use Carp (); use HTTP::Status (); diff --git a/lib/LWP/Protocol/gopher.pm b/lib/LWP/Protocol/gopher.pm index 508ec62..dd73b42 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.55'; +our $VERSION = '6.56'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/http.pm b/lib/LWP/Protocol/http.pm index 4e53716..c9dc0ee 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.55'; +our $VERSION = '6.56'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/loopback.pm b/lib/LWP/Protocol/loopback.pm index cb929cc..dd2679c 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.55'; +our $VERSION = '6.56'; require HTTP::Response; diff --git a/lib/LWP/Protocol/mailto.pm b/lib/LWP/Protocol/mailto.pm index e8c2454..4a977e5 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.55'; +our $VERSION = '6.56'; use base qw(LWP::Protocol); our $SENDMAIL; diff --git a/lib/LWP/Protocol/nntp.pm b/lib/LWP/Protocol/nntp.pm index 4a790bd..7a04786 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.55'; +our $VERSION = '6.56'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/Protocol/nogo.pm b/lib/LWP/Protocol/nogo.pm index f094591..94cfaf0 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.55'; +our $VERSION = '6.56'; require HTTP::Response; require HTTP::Status; diff --git a/lib/LWP/RobotUA.pm b/lib/LWP/RobotUA.pm index c1a2260..dd9341d 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.55'; +our $VERSION = '6.56'; require WWW::RobotRules; require HTTP::Request; diff --git a/lib/LWP/Simple.pm b/lib/LWP/Simple.pm index f54b83d..40b0e2e 100644 --- a/lib/LWP/Simple.pm +++ b/lib/LWP/Simple.pm @@ -2,7 +2,7 @@ package LWP::Simple; use strict; -our $VERSION = '6.55'; +our $VERSION = '6.56'; require Exporter; diff --git a/lib/LWP/UserAgent.pm b/lib/LWP/UserAgent.pm index c1fef04..42586bf 100644 --- a/lib/LWP/UserAgent.pm +++ b/lib/LWP/UserAgent.pm @@ -16,7 +16,7 @@ use LWP::Protocol (); use Scalar::Util qw(blessed); use Try::Tiny qw(try catch); -our $VERSION = '6.55'; +our $VERSION = '6.56'; sub new { @@ -445,38 +445,41 @@ sub get { return $self->request( HTTP::Request::Common::GET( @parameters ), @suff ); } -sub _has_raw_content { +sub _maybe_copy_default_content_type { my $self = shift; - shift; # drop url + my $req = shift; + + my $default_ct = $self->default_header('Content-Type'); + return unless defined $default_ct; + + # drop url + shift; - # taken from HTTP::Request::Common::request_type_with_data + # adapted from HTTP::Request::Common::request_type_with_data my $content; $content = shift if @_ and ref $_[0]; - my($k, $v); - while (($k,$v) = splice(@_, 0, 2)) { + + # We only care about the final value, really + my $ct; + + my ($k, $v); + while (($k, $v) = splice(@_, 0, 2)) { if (lc($k) eq 'content') { $content = $v; } + elsif (lc($k) eq 'content-type') { + $ct = $v; + } } - # We were given Content => 'string' ... - if (defined $content && ! ref ($content)) { - return 1; - } - - return; -} - -sub _maybe_copy_default_content_type { - my ($self, $req, @parameters) = @_; + # Content-type provided and truthy? skip + return if $ct; - # If we have a default Content-Type and someone passes in a POST/PUT - # with Content => 'some-string-value', use that Content-Type instead - # of x-www-form-urlencoded - my $ct = $self->default_header('Content-Type'); - return unless defined $ct && $self->_has_raw_content(@parameters); + # Content is not just a string? Then it must be x-www-form-urlencoded + return if defined $content && ref($content); - $req->header('Content-Type' => $ct); + # Provide default + $req->header('Content-Type' => $default_ct); } sub post { diff --git a/t/base/default_content_type.t b/t/base/default_content_type.t index 0897ce7..d446ed6 100644 --- a/t/base/default_content_type.t +++ b/t/base/default_content_type.t @@ -4,7 +4,7 @@ use Test::More; use LWP::UserAgent; use HTTP::Request (); -plan tests => 6; +plan tests => 18; # Prevent environment from interfering with test: delete $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}; @@ -15,34 +15,38 @@ delete $ENV{PERL_LWP_SSL_CA_PATH}; delete $ENV{PERL_LWP_ENV_PROXY}; # we can only use HTTP::Request >= 6.07 -my $ver = $HTTP::Request::VERSION || '6.00'; -my $ver_ok = eval {HTTP::Request->VERSION("6.07");}; -my $patch_ver_ok = eval {HTTP::Request->VERSION("6.12");}; +my $ver = $HTTP::Request::VERSION || '6.00'; +my $ver_ok = eval { HTTP::Request->VERSION("6.07"); }; +my $patch_ver_ok = eval { HTTP::Request->VERSION("6.12"); }; diag "Some tests for the PUT/PATCH methods can only be run on "; diag "HTTP::Request version 6.07/6.12 or higher."; diag "If your version isn't good enough, we'll skip those."; -diag "Your version is $ver and that's ". ($ver_ok ? '' : 'not '). 'good enough'; +diag "Your version is $ver and that's " + . ($ver_ok ? '' : 'not ') + . 'good enough'; # default_header 'Content-Type' should be honored in POST/PUT # if the "Content => 'string'" form is used. Otherwise, x-www-form-urlencoded # will be used my $url = "http://www.example.com"; -my $ua = LWP::UserAgent->new; +my $ua = LWP::UserAgent->new; $ua->default_header('Content-Type' => 'application/json'); $ua->proxy(http => "loopback:"); $ua->agent("foo/0.1"); # These forms will all be x-www-form-urlencoded subtest 'PATCH x-www-form-urlencoded' => sub { - plan skip_all => "HTTP::Request version not high enough" unless $patch_ver_ok; + plan skip_all => "HTTP::Request version not high enough" + unless $patch_ver_ok; plan tests => 4; for my $arg ( - [ { cat => 'dog' } ], - [ [ cat => 'dog' ] ], - [ Content => { cat => 'dog' }, ], - [ Content => [ cat => 'dog' ], ], - ) { - is ($ua->patch($url, @$arg)->content, <<"EOT", "patch @$arg"); + [{cat => 'dog'}], + [[cat => 'dog']], + [Content => {cat => 'dog'},], + [Content => [cat => 'dog'],], + ) + { + is($ua->patch($url, @$arg)->content, <<"EOT", "patch @$arg"); PATCH http://www.example.com User-Agent: foo/0.1 Content-Length: 7 @@ -56,14 +60,15 @@ EOT # These forms will all be x-www-form-urlencoded subtest 'PUT x-www-form-urlencoded' => sub { plan skip_all => "HTTP::Request version not high enough" unless $ver_ok; - plan tests => 4; + plan tests => 4; for my $arg ( - [ { cat => 'dog' } ], - [ [ cat => 'dog' ] ], - [ Content => { cat => 'dog' }, ], - [ Content => [ cat => 'dog' ], ], - ) { - is ($ua->put($url, @$arg)->content, <<"EOT", "put @$arg"); + [{cat => 'dog'}], + [[cat => 'dog']], + [Content => {cat => 'dog'},], + [Content => [cat => 'dog'],], + ) + { + is($ua->put($url, @$arg)->content, <<"EOT", "put @$arg"); PUT http://www.example.com User-Agent: foo/0.1 Content-Length: 7 @@ -78,12 +83,13 @@ EOT subtest 'POST x-www-form-urlencoded' => sub { plan tests => 4; for my $arg ( - [ { cat => 'dog' } ], - [ [ cat => 'dog' ] ], - [ Content => { cat => 'dog' }, ], - [ Content => [ cat => 'dog' ], ], - ) { - is ($ua->post($url, @$arg)->content, <<"EOT", "post @$arg"); + [{cat => 'dog'}], + [[cat => 'dog']], + [Content => {cat => 'dog'},], + [Content => [cat => 'dog'],], + ) + { + is($ua->post($url, @$arg)->content, <<"EOT", "post @$arg"); POST http://www.example.com User-Agent: foo/0.1 Content-Length: 7 @@ -98,9 +104,9 @@ EOT for my $call (qw(post put patch)) { my $ucall = uc $call; - my $arg = [ Content => '{"cat":"dog"}' ]; + my $arg = [Content => '{"cat":"dog"}']; - is ($ua->$call($url, @$arg)->content, <<"EOT", "$call @$arg"); + is($ua->$call($url, @$arg)->content, <<"EOT", "$call @$arg"); $ucall http://www.example.com User-Agent: foo/0.1 Content-Length: 13 @@ -110,3 +116,45 @@ Content-Type: application/json EOT } + +# Provided Content-Type overrides default +for my $call (qw(post put patch)) { + my $ucall = uc $call; + + my $arg = ['Content-Type' => 'text/plain', Content => '{"cat":"dog"}']; + + is($ua->$call($url, @$arg)->content, + <<"EOT", "$call @$arg with override CT"); +$ucall http://www.example.com +User-Agent: foo/0.1 +Content-Length: 13 +Content-Type: text/plain + +{"cat":"dog"} +EOT + +} + +# Any non-true content type means use default +for my $ct (0, "", undef) { + for my $call (qw(post put patch)) { + my $ucall = uc $call; + + my $arg = ['Content-Type' => $ct, Content => '{"cat":"dog"}']; + + my $desc = defined($ct) ? $ct : ""; + + my @desc_arg = map { defined $_ ? $_ : "" } @$arg; + + is($ua->$call($url, @$arg)->content, + <<"EOT", "$call @desc_arg with false override CT '$desc' uses default"); +$ucall http://www.example.com +User-Agent: foo/0.1 +Content-Length: 13 +Content-Type: application/json + +{"cat":"dog"} +EOT + } + +} diff --git a/t/base/proxy.t b/t/base/proxy.t index 1fe8f8f..d90f440 100644 --- a/t/base/proxy.t +++ b/t/base/proxy.t @@ -4,7 +4,10 @@ use Test::More; use Test::Fatal; use LWP::UserAgent; -plan tests => 2; +plan tests => 8; + +# in case already defined in user's environment +delete $ENV{$_} for qw(REQUEST_METHOD HTTP_PROXY http_proxy CGI_HTTP_PROXY NO_PROXY no_proxy); for my $varname ( qw(ABSURDLY_NAMED_PROXY MY_PROXY) ) { $ENV{ $varname } = "foobar"; @@ -13,3 +16,70 @@ for my $varname ( qw(ABSURDLY_NAMED_PROXY MY_PROXY) ) { is(exception{ $ua->env_proxy(); }, undef, "proxy: with env: $varname: no errors"); delete $ENV{$varname}; } + +# simulate CGI environment +{ + local $ENV{REQUEST_METHOD} = 'GET'; + local $ENV{HTTP_PROXY} = 'something'; + my $ua = LWP::UserAgent->new; + $ua->env_proxy(); + is $ua->proxy('http'), undef, 'HTTP_PROXY ignored in CGI environment'; +} + +{ + local $ENV{REQUEST_METHOD} = 'GET'; + local $ENV{CGI_HTTP_PROXY} = 'http://proxy.example.org:3128/'; + my $ua = LWP::UserAgent->new; + $ua->env_proxy(); + is $ua->proxy('http'), 'http://proxy.example.org:3128/', + 'substitute CGI_HTTP_PROXY used in CGI environment'; +} + +SKIP: { + skip "Environment variables are case-sensitive on this platform", 1 + if do { + local $ENV{TEST_CASE_SENSITIVITY} = "a"; + local $ENV{test_case_sensitivity} = "b"; + $ENV{TEST_CASE_SENSITIVITY} eq $ENV{test_case_sensitivity}; + }; + my @warnings; + local $SIG{__WARN__} = sub { push @warnings, @_ }; + local $ENV{HTTP_PROXY} = 'http://uppercase-proxy.example.org:3128/'; + local $ENV{http_proxy} = 'http://lowercase-proxy.example.org:3128/'; + my $ua = LWP::UserAgent->new; + $ua->env_proxy(); + (my $warnings = "@warnings") =~ s{ at .*\n}{}; + is $warnings, qq{Environment contains multiple differing definitions for 'http_proxy'.\nUsing value from 'HTTP_PROXY' (http://uppercase-proxy.example.org:3128/) and ignoring 'http_proxy' (http://lowercase-proxy.example.org:3128/)}, + 'expected warning on multiple definitions'; +} + +{ + my @warnings; + local $SIG{__WARN__} = sub { push @warnings, @_ }; + local $ENV{HTTP_PROXY} = 'http://proxy.example.org:3128/'; + local $ENV{http_proxy} = 'http://proxy.example.org:3128/'; + my $ua = LWP::UserAgent->new; + $ua->env_proxy(); + is_deeply \@warnings, [], + "No warnings if multiple definitions for 'http_proxy' exist, but with the same value"; +} + +{ + local $ENV{NO_PROXY} = 'localhost,example.com'; + my $ua = LWP::UserAgent->new; + $ua->env_proxy(); + is_deeply $ua->{no_proxy}, [qw(localhost example.com)], + 'no_proxy from environment'; +} + +{ + local $TODO = "Test case for GH #372"; + my @warnings; + local $SIG{__WARN__} = sub { push @warnings, @_ }; + local $ENV{FOO} = 'BAR'; + local $ENV{foo} = 'bar'; + my $ua = LWP::UserAgent->new; + $ua->env_proxy(); + is_deeply \@warnings, [], + "No warnings for unrelated environment variables"; +} diff --git a/xt/release/changes_has_content.t b/xt/release/changes_has_content.t index bae8e2e..e303633 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.55'; +my $newver = '6.56'; my $trial_token = '-TRIAL'; my $encoding = 'UTF-8'; -- 2.34.1