Hello community,
here is the log from the commit of package perl-libwww-perl for
openSUSE:Factory checked in at 2019-05-08 15:15:25
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-libwww-perl (Old)
and /work/SRC/openSUSE:Factory/.perl-libwww-perl.new.5148 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-libwww-perl"
Wed May 8 15:15:25 2019 rev:61 rq:701206 version:6.39
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-libwww-perl/perl-libwww-perl.changes
2019-04-04 11:58:52.417209407 +0200
+++
/work/SRC/openSUSE:Factory/.perl-libwww-perl.new.5148/perl-libwww-perl.changes
2019-05-08 15:15:26.780852275 +0200
@@ -1,0 +2,11 @@
+Tue May 7 05:32:30 UTC 2019 - Stephan Kulow <[email protected]>
+
+- updated to 6.39
+ see /usr/share/doc/packages/perl-libwww-perl/Changes
+
+ 6.39 2019-05-06 14:18:39Z
+ - Document current best practices (GH#314) (Olaf Alders)
+ - Document order in which handlers fire (GH#315) (Olaf Alders)
+ - SKIP nntp test for now (GH#317) (Olaf Alders)
+
+-------------------------------------------------------------------
Old:
----
libwww-perl-6.38.tar.gz
New:
----
libwww-perl-6.39.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.jh2fse/_old 2019-05-08 15:15:29.016857255 +0200
+++ /var/tmp/diff_new_pack.jh2fse/_new 2019-05-08 15:15:29.040857309 +0200
@@ -17,7 +17,7 @@
Name: perl-libwww-perl
-Version: 6.38
+Version: 6.39
Release: 0
%define cpan_name libwww-perl
Summary: The World-Wide Web library for Perl
@@ -96,7 +96,7 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes CONTRIBUTING.md README.SSL talk-to-ourself
+%doc Changes CONTRIBUTING.md examples README.SSL talk-to-ourself
%license LICENSE
%changelog
++++++ libwww-perl-6.38.tar.gz -> libwww-perl-6.39.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/Changes new/libwww-perl-6.39/Changes
--- old/libwww-perl-6.38/Changes 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/Changes 2019-05-06 16:18:42.000000000 +0200
@@ -1,5 +1,10 @@
Change history for libwww-perl
+6.39 2019-05-06 14:18:39Z
+ - Document current best practices (GH#314) (Olaf Alders)
+ - Document order in which handlers fire (GH#315) (Olaf Alders)
+ - SKIP nntp test for now (GH#317) (Olaf Alders)
+
6.38 2019-03-25 18:58:58Z
- Update Net::HTTP dependency from 6.07 to 6.18 (GH#310) (Olaf Alders)
- Remove s.c.o. from SYNOPSIS (GH#308) (Olaf Alders)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/INSTALL new/libwww-perl-6.39/INSTALL
--- old/libwww-perl-6.38/INSTALL 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/INSTALL 2019-05-06 16:18:42.000000000 +0200
@@ -6,7 +6,7 @@
If you have cpanm, you only need one line:
- % cpanm libwww::perl
+ % cpanm LWP
If it does not have permission to install modules to the current perl, cpanm
will automatically set up and install to a local::lib in your home directory.
@@ -17,7 +17,7 @@
Alternatively, if your CPAN shell is set up, you should just be able to do:
- % cpan libwww::perl
+ % cpan LWP
## Manual installation
@@ -66,7 +66,7 @@
libwww-perl documentation is available as POD.
You can run `perldoc` from a shell to read the documentation:
- % perldoc libwww::perl
+ % perldoc LWP
For more information on installing Perl modules via CPAN, please see:
https://www.cpan.org/modules/INSTALL.html
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/MANIFEST
new/libwww-perl-6.39/MANIFEST
--- old/libwww-perl-6.38/MANIFEST 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/MANIFEST 2019-05-06 16:18:42.000000000 +0200
@@ -14,6 +14,7 @@
bin/lwp-request
cpanfile
dist.ini
+examples/handler-order.pl
lib/LWP.pm
lib/LWP/Authen/Basic.pm
lib/LWP/Authen/Digest.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/META.json
new/libwww-perl-6.39/META.json
--- old/libwww-perl-6.38/META.json 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/META.json 2019-05-06 16:18:42.000000000 +0200
@@ -108,96 +108,96 @@
"provides" : {
"LWP" : {
"file" : "lib/LWP.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Authen::Basic" : {
"file" : "lib/LWP/Authen/Basic.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Authen::Digest" : {
"file" : "lib/LWP/Authen/Digest.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Authen::Ntlm" : {
"file" : "lib/LWP/Authen/Ntlm.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::ConnCache" : {
"file" : "lib/LWP/ConnCache.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Debug" : {
"file" : "lib/LWP/Debug.pm",
- "version" : "6.38",
+ "version" : "6.39",
"x_deprecated" : 1
},
"LWP::Debug::TraceHTTP" : {
"file" : "lib/LWP/Debug/TraceHTTP.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::DebugFile" : {
"file" : "lib/LWP/DebugFile.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::MemberMixin" : {
"file" : "lib/LWP/MemberMixin.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol" : {
"file" : "lib/LWP/Protocol.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::cpan" : {
"file" : "lib/LWP/Protocol/cpan.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::data" : {
"file" : "lib/LWP/Protocol/data.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::file" : {
"file" : "lib/LWP/Protocol/file.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::ftp" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::gopher" : {
"file" : "lib/LWP/Protocol/gopher.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::http" : {
"file" : "lib/LWP/Protocol/http.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::loopback" : {
"file" : "lib/LWP/Protocol/loopback.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::mailto" : {
"file" : "lib/LWP/Protocol/mailto.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::nntp" : {
"file" : "lib/LWP/Protocol/nntp.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Protocol::nogo" : {
"file" : "lib/LWP/Protocol/nogo.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::RobotUA" : {
"file" : "lib/LWP/RobotUA.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::Simple" : {
"file" : "lib/LWP/Simple.pm",
- "version" : "6.38"
+ "version" : "6.39"
},
"LWP::UserAgent" : {
"file" : "lib/LWP/UserAgent.pm",
- "version" : "6.38"
+ "version" : "6.39"
}
},
"release_status" : "stable",
@@ -214,7 +214,7 @@
"x_IRC" : "irc://irc.perl.org/#lwp",
"x_MailingList" : "mailto:[email protected]";
},
- "version" : "6.38",
+ "version" : "6.39",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.026001"
@@ -312,7 +312,7 @@
"class" : "Dist::Zilla::Plugin::Git::Contributors",
"config" : {
"Dist::Zilla::Plugin::Git::Contributors" : {
- "git_version" : "2.20.1",
+ "git_version" : "2.21.0",
"include_authors" : 0,
"include_releaser" : 1,
"order_by" : "name",
@@ -344,8 +344,14 @@
},
{
"class" : "Dist::Zilla::Plugin::InstallGuide",
+ "config" : {
+ "Dist::Zilla::Role::ModuleMetadata" : {
+ "Module::Metadata" : "1.000033",
+ "version" : "0.004"
+ }
+ },
"name" : "InstallGuide",
- "version" : "1.200012"
+ "version" : "1.200013"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
@@ -381,7 +387,7 @@
}
},
"name" : "MakeMaker::Awesome",
- "version" : "0.41"
+ "version" : "0.47"
},
{
"class" : "Dist::Zilla::Plugin::MojibakeTests",
@@ -621,7 +627,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.20.1",
+ "git_version" : "2.21.0",
"repo_root" : "."
}
},
@@ -751,7 +757,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.20.1",
+ "git_version" : "2.21.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -768,12 +774,12 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "v6.38",
+ "tag" : "v6.39",
"tag_format" : "v%V",
"tag_message" : "v%V"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.20.1",
+ "git_version" : "2.21.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -823,7 +829,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.20.1",
+ "git_version" : "2.21.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -843,7 +849,7 @@
"remotes_must_exist" : 1
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.20.1",
+ "git_version" : "2.21.0",
"repo_root" : "."
}
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/META.yml
new/libwww-perl-6.39/META.yml
--- old/libwww-perl-6.38/META.yml 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/META.yml 2019-05-06 16:18:42.000000000 +0200
@@ -30,74 +30,74 @@
provides:
LWP:
file: lib/LWP.pm
- version: '6.38'
+ version: '6.39'
LWP::Authen::Basic:
file: lib/LWP/Authen/Basic.pm
- version: '6.38'
+ version: '6.39'
LWP::Authen::Digest:
file: lib/LWP/Authen/Digest.pm
- version: '6.38'
+ version: '6.39'
LWP::Authen::Ntlm:
file: lib/LWP/Authen/Ntlm.pm
- version: '6.38'
+ version: '6.39'
LWP::ConnCache:
file: lib/LWP/ConnCache.pm
- version: '6.38'
+ version: '6.39'
LWP::Debug:
file: lib/LWP/Debug.pm
- version: '6.38'
+ version: '6.39'
x_deprecated: 1
LWP::Debug::TraceHTTP:
file: lib/LWP/Debug/TraceHTTP.pm
- version: '6.38'
+ version: '6.39'
LWP::DebugFile:
file: lib/LWP/DebugFile.pm
- version: '6.38'
+ version: '6.39'
LWP::MemberMixin:
file: lib/LWP/MemberMixin.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol:
file: lib/LWP/Protocol.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::cpan:
file: lib/LWP/Protocol/cpan.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::data:
file: lib/LWP/Protocol/data.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::file:
file: lib/LWP/Protocol/file.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::ftp:
file: lib/LWP/Protocol/ftp.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::gopher:
file: lib/LWP/Protocol/gopher.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::http:
file: lib/LWP/Protocol/http.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::loopback:
file: lib/LWP/Protocol/loopback.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::mailto:
file: lib/LWP/Protocol/mailto.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::nntp:
file: lib/LWP/Protocol/nntp.pm
- version: '6.38'
+ version: '6.39'
LWP::Protocol::nogo:
file: lib/LWP/Protocol/nogo.pm
- version: '6.38'
+ version: '6.39'
LWP::RobotUA:
file: lib/LWP/RobotUA.pm
- version: '6.38'
+ version: '6.39'
LWP::Simple:
file: lib/LWP/Simple.pm
- version: '6.38'
+ version: '6.39'
LWP::UserAgent:
file: lib/LWP/UserAgent.pm
- version: '6.38'
+ version: '6.39'
requires:
Digest::MD5: '0'
Encode: '2.12'
@@ -134,7 +134,7 @@
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.38'
+version: '6.39'
x_Dist_Zilla:
perl:
version: '5.026001'
@@ -210,7 +210,7 @@
class: Dist::Zilla::Plugin::Git::Contributors
config:
Dist::Zilla::Plugin::Git::Contributors:
- git_version: 2.20.1
+ git_version: 2.21.0
include_authors: 0
include_releaser: 1
order_by: name
@@ -235,8 +235,12 @@
version: '6.012'
-
class: Dist::Zilla::Plugin::InstallGuide
+ config:
+ Dist::Zilla::Role::ModuleMetadata:
+ Module::Metadata: '1.000033'
+ version: '0.004'
name: InstallGuide
- version: '1.200012'
+ version: '1.200013'
-
class: Dist::Zilla::Plugin::ExecDir
name: ExecDir
@@ -263,7 +267,7 @@
default_jobs: 1
version: '6.012'
name: MakeMaker::Awesome
- version: '0.41'
+ version: '0.47'
-
class: Dist::Zilla::Plugin::MojibakeTests
name: MojibakeTests
@@ -474,7 +478,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.20.1
+ git_version: 2.21.0
repo_root: .
name: Git::Check
version: '2.046'
@@ -571,7 +575,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.20.1
+ git_version: 2.21.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -584,11 +588,11 @@
branch: ~
changelog: Changes
signed: 0
- tag: v6.38
+ tag: v6.39
tag_format: v%V
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
- git_version: 2.20.1
+ git_version: 2.21.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -625,7 +629,7 @@
- (?^:^lib/.*\.pm$)
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.20.1
+ git_version: 2.21.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -639,7 +643,7 @@
- origin
remotes_must_exist: 1
Dist::Zilla::Role::Git::Repo:
- git_version: 2.20.1
+ git_version: 2.21.0
repo_root: .
name: Git::Push
version: '2.046'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/Makefile.PL
new/libwww-perl-6.39/Makefile.PL
--- old/libwww-perl-6.38/Makefile.PL 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/Makefile.PL 2019-05-06 16:18:42.000000000 +0200
@@ -1,5 +1,5 @@
# This Makefile.PL for libwww-perl was generated by
-# Dist::Zilla::Plugin::MakeMaker::Awesome 0.41.
+# Dist::Zilla::Plugin::MakeMaker::Awesome 0.47.
# Don't edit it but the dist.ini and plugins used to construct it.
use strict;
@@ -86,7 +86,7 @@
"Test::Needs" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "6.38",
+ "VERSION" => "6.39",
"test" => {
"TESTS" => "t/*.t t/base/*.t t/base/protocols/*.t t/leak/*.t t/local/*.t
t/robot/*.t"
}
@@ -138,7 +138,7 @@
# inserted by Dist::Zilla::Plugin::DynamicPrereqs 0.034
requires('HTTP::Status', '6.18') if has_module('HTTP::Status', '6.17');
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+unless ( eval { ExtUtils::MakeMaker->VERSION('6.63_03') } ) {
delete $WriteMakefileArgs{TEST_REQUIRES};
delete $WriteMakefileArgs{BUILD_REQUIRES};
$WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/dist.ini
new/libwww-perl-6.39/dist.ini
--- old/libwww-perl-6.38/dist.ini 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/dist.ini 2019-05-06 16:18:42.000000000 +0200
@@ -33,6 +33,7 @@
[Manifest]
[License]
[InstallGuide]
+:version = 1.200013
; make the bin dir executables
[ExecDir]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/examples/handler-order.pl
new/libwww-perl-6.39/examples/handler-order.pl
--- old/libwww-perl-6.38/examples/handler-order.pl 1970-01-01
01:00:00.000000000 +0100
+++ new/libwww-perl-6.39/examples/handler-order.pl 2019-05-06
16:18:42.000000000 +0200
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw( say );
+
+use LWP::UserAgent;
+my $ua = LWP::UserAgent->new;
+
+my @phases = (
+ 'request_preprepare', 'request_prepare',
+ 'request_send', 'response_header',
+ 'response_data', 'response_done',
+ 'response_redirect',
+);
+
+for my $phase (@phases) {
+ $ua->add_handler($phase => sub { say "$phase"; return undef; });
+}
+
+$ua->get('http://example.com');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Authen/Basic.pm
new/libwww-perl-6.39/lib/LWP/Authen/Basic.pm
--- old/libwww-perl-6.38/lib/LWP/Authen/Basic.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Authen/Basic.pm 2019-05-06
16:18:42.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require MIME::Base64;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Authen/Digest.pm
new/libwww-perl-6.39/lib/LWP/Authen/Digest.pm
--- old/libwww-perl-6.38/lib/LWP/Authen/Digest.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Authen/Digest.pm 2019-05-06
16:18:42.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use base 'LWP::Authen::Basic';
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require Digest::MD5;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Authen/Ntlm.pm
new/libwww-perl-6.39/lib/LWP/Authen/Ntlm.pm
--- old/libwww-perl-6.38/lib/LWP/Authen/Ntlm.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/Authen/Ntlm.pm 2019-05-06 16:18:42.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
use Authen::NTLM "1.02";
use MIME::Base64 "2.12";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/ConnCache.pm
new/libwww-perl-6.39/lib/LWP/ConnCache.pm
--- old/libwww-perl-6.38/lib/LWP/ConnCache.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/ConnCache.pm 2019-05-06 16:18:42.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
our $DEBUG;
sub new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Debug/TraceHTTP.pm
new/libwww-perl-6.39/lib/LWP/Debug/TraceHTTP.pm
--- old/libwww-perl-6.38/lib/LWP/Debug/TraceHTTP.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Debug/TraceHTTP.pm 2019-05-06
16:18:42.000000000 +0200
@@ -11,7 +11,7 @@
use strict;
use base 'LWP::Protocol::http';
-our $VERSION = '6.38';
+our $VERSION = '6.39';
package # hide from PAUSE
LWP::Debug::TraceHTTP::Socket;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Debug.pm
new/libwww-perl-6.39/lib/LWP/Debug.pm
--- old/libwww-perl-6.38/lib/LWP/Debug.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/Debug.pm 2019-05-06 16:18:42.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::Debug; # legacy
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require Exporter;
our @ISA = qw(Exporter);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/DebugFile.pm
new/libwww-perl-6.39/lib/LWP/DebugFile.pm
--- old/libwww-perl-6.38/lib/LWP/DebugFile.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/DebugFile.pm 2019-05-06 16:18:42.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::DebugFile;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
# legacy stub
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/MemberMixin.pm
new/libwww-perl-6.39/lib/LWP/MemberMixin.pm
--- old/libwww-perl-6.38/lib/LWP/MemberMixin.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/MemberMixin.pm 2019-05-06 16:18:42.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::MemberMixin;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
sub _elem {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/cpan.pm
new/libwww-perl-6.39/lib/LWP/Protocol/cpan.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/cpan.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/cpan.pm 2019-05-06
16:18:42.000000000 +0200
@@ -4,7 +4,7 @@
use base qw(LWP::Protocol);
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require URI;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/data.pm
new/libwww-perl-6.39/lib/LWP/Protocol/data.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/data.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/data.pm 2019-05-06
16:18:42.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/file.pm
new/libwww-perl-6.39/lib/LWP/Protocol/file.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/file.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/file.pm 2019-05-06
16:18:42.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require LWP::MediaTypes;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/ftp.pm
new/libwww-perl-6.39/lib/LWP/Protocol/ftp.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/ftp.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/ftp.pm 2019-05-06
16:18:42.000000000 +0200
@@ -5,7 +5,7 @@
use base qw(LWP::Protocol);
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
use Carp ();
use HTTP::Status ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/gopher.pm
new/libwww-perl-6.39/lib/LWP/Protocol/gopher.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/gopher.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/gopher.pm 2019-05-06
16:18:42.000000000 +0200
@@ -9,7 +9,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/http.pm
new/libwww-perl-6.39/lib/LWP/Protocol/http.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/http.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/http.pm 2019-05-06
16:18:42.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/loopback.pm
new/libwww-perl-6.39/lib/LWP/Protocol/loopback.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/loopback.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/loopback.pm 2019-05-06
16:18:42.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require HTTP::Response;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/mailto.pm
new/libwww-perl-6.39/lib/LWP/Protocol/mailto.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/mailto.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/mailto.pm 2019-05-06
16:18:42.000000000 +0200
@@ -11,7 +11,7 @@
use Carp;
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
use base qw(LWP::Protocol);
our $SENDMAIL;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/nntp.pm
new/libwww-perl-6.39/lib/LWP/Protocol/nntp.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/nntp.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/nntp.pm 2019-05-06
16:18:42.000000000 +0200
@@ -4,7 +4,7 @@
use base qw(LWP::Protocol);
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol/nogo.pm
new/libwww-perl-6.39/lib/LWP/Protocol/nogo.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol/nogo.pm 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol/nogo.pm 2019-05-06
16:18:42.000000000 +0200
@@ -7,7 +7,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Protocol.pm
new/libwww-perl-6.39/lib/LWP/Protocol.pm
--- old/libwww-perl-6.38/lib/LWP/Protocol.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/Protocol.pm 2019-05-06 16:18:42.000000000
+0200
@@ -2,7 +2,7 @@
use base 'LWP::MemberMixin';
-our $VERSION = '6.38';
+our $VERSION = '6.39';
use strict;
use Carp ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/RobotUA.pm
new/libwww-perl-6.39/lib/LWP/RobotUA.pm
--- old/libwww-perl-6.38/lib/LWP/RobotUA.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/RobotUA.pm 2019-05-06 16:18:42.000000000
+0200
@@ -2,7 +2,7 @@
use base qw(LWP::UserAgent);
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require WWW::RobotRules;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/Simple.pm
new/libwww-perl-6.39/lib/LWP/Simple.pm
--- old/libwww-perl-6.38/lib/LWP/Simple.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/Simple.pm 2019-05-06 16:18:42.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require Exporter;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP/UserAgent.pm
new/libwww-perl-6.39/lib/LWP/UserAgent.pm
--- old/libwww-perl-6.38/lib/LWP/UserAgent.pm 2019-03-25 19:59:01.000000000
+0100
+++ new/libwww-perl-6.39/lib/LWP/UserAgent.pm 2019-05-06 16:18:42.000000000
+0200
@@ -15,7 +15,7 @@
use Scalar::Util qw(blessed);
use Try::Tiny qw(try catch);
-our $VERSION = '6.38';
+our $VERSION = '6.39';
sub new
{
@@ -1133,22 +1133,48 @@
=head1 SYNOPSIS
- use strict;
- use warnings;
- use LWP::UserAgent ();
-
- my $ua = LWP::UserAgent->new;
- $ua->timeout(10);
- $ua->env_proxy;
-
- my $response = $ua->get('http://example.com');
-
- if ($response->is_success) {
- print $response->decoded_content; # or whatever
- }
- else {
- die $response->status_line;
- }
+ use strict;
+ use warnings;
+
+ use LWP::UserAgent ();
+
+ my $ua = LWP::UserAgent->new(timeout => 10);
+ $ua->env_proxy;
+
+ my $response = $ua->get('http://example.com');
+
+ if ($response->is_success) {
+ print $response->decoded_content;
+ }
+ else {
+ die $response->status_line;
+ }
+
+Extra layers of security (note the C<cookie_jar> and C<protocols_allowed>):
+
+ use strict;
+ use warnings;
+
+ use HTTP::CookieJar::LWP ();
+ use LWP::UserAgent ();
+
+ my $jar = HTTP::CookieJar::LWP->new;
+ my $ua = LWP::UserAgent->new(
+ cookie_jar => $jar,
+ protocols_allowed => ['http', 'https'],
+ timeout => 10,
+ );
+
+ $ua->env_proxy;
+
+ my $response = $ua->get('http://example.com');
+
+ if ($response->is_success) {
+ print $response->decoded_content;
+ }
+ else {
+ die $response->status_line;
+ }
=head1 DESCRIPTION
@@ -1276,7 +1302,16 @@
C<add_cookie_header($request)> methods. These methods will then be
invoked by the user agent as requests are sent and responses are
received. Normally this will be a L<HTTP::Cookies> object or some
-subclass.
+subclass. You are, however, encouraged to use L<HTTP::CookieJar::LWP>
+instead. See L</"BEST PRACTICES"> for more information.
+
+ use HTTP::CookieJar::LWP ();
+
+ my $jar = HTTP::CookieJar::LWP->new;
+ my $ua = LWP::UserAgent->new( cookie_jar => $jar );
+
+ # or after object creation
+ $ua->cookie_jar( $cookie_jar );
The default is to have no cookie jar, i.e. never automatically add
C<Cookie> headers to the requests.
@@ -1592,34 +1627,27 @@
Add handler to be invoked in the given processing phase. For how to
specify C<%matchspec> see L<HTTP::Config/"Matching">.
-The possible values C<$phase> and the corresponding callback signatures are:
+The possible values C<$phase> and the corresponding callback signatures are as
+follows. Note that the handlers are documented in the order in which they will
+be run, which is:
+
+ request_preprepare
+ request_prepare
+ request_send
+ response_header
+ response_data
+ response_done
+ response_redirect
=over
-=item response_data => sub { my($response, $ua, $handler, $data) = @_; ... }
-
-This handler is called for each chunk of data received for the
-response. The handler might croak to abort the request.
-
-This handler needs to return a TRUE value to be called again for
-subsequent chunks for the same request.
-
-=item response_done => sub { my($response, $ua, $handler) = @_; ... }
-
-The handler is called after the response has been fully received, but
-before any redirect handling is attempted. The handler can be used to
-extract information or modify the response.
-
-=item response_header => sub { my($response, $ua, $handler) = @_; ... }
-
-This handler is called right after the response headers have been
-received, but before any content data. The handler might set up
-handlers for data and might croak to abort the request.
+=item request_preprepare => sub { my($request, $ua, $handler) = @_; ... }
-The handler might set the C<< $response->{default_add_content} >> value to
-control if any received data should be added to the response object
-directly. This will initially be false if the C<< $ua->request() >> method
-was called with a C<$content_file> or C<$content_cb argument>; otherwise true.
+The handler is called before the C<request_prepare> and other standard
+initialization of the request. This can be used to set up headers
+and attributes that the C<request_prepare> handler depends on. Proxy
+initialization should take place here; but in general don't register
+handlers for this phase.
=item request_prepare => sub { my($request, $ua, $handler) = @_; ... }
@@ -1634,14 +1662,6 @@
raised it will abort the request and make the request method return a
"400 Bad request" response.
-=item request_preprepare => sub { my($request, $ua, $handler) = @_; ... }
-
-The handler is called before the C<request_prepare> and other standard
-initialization of the request. This can be used to set up headers
-and attributes that the C<request_prepare> handler depends on. Proxy
-initialization should take place here; but in general don't register
-handlers for this phase.
-
=item request_send => sub { my($request, $ua, $handler) = @_; ... }
This handler gets a chance of handling requests before they're sent to the
@@ -1651,6 +1671,31 @@
The C<response_header> and C<response_data> handlers will not be
invoked for this response, but the C<response_done> will be.
+=item response_header => sub { my($response, $ua, $handler) = @_; ... }
+
+This handler is called right after the response headers have been
+received, but before any content data. The handler might set up
+handlers for data and might croak to abort the request.
+
+The handler might set the C<< $response->{default_add_content} >> value to
+control if any received data should be added to the response object
+directly. This will initially be false if the C<< $ua->request() >> method
+was called with a C<$content_file> or C<$content_cb argument>; otherwise true.
+
+=item response_data => sub { my($response, $ua, $handler, $data) = @_; ... }
+
+This handler is called for each chunk of data received for the
+response. The handler might croak to abort the request.
+
+This handler needs to return a TRUE value to be called again for
+subsequent chunks for the same request.
+
+=item response_done => sub { my($response, $ua, $handler) = @_; ... }
+
+The handler is called after the response has been fully received, but
+before any redirect handling is attempted. The handler can be used to
+extract information or modify the response.
+
=item response_redirect => sub { my($response, $ua, $handler) = @_; ... }
The handler is called in C<< $ua->request >> after C<response_done>. If the
@@ -1988,6 +2033,47 @@
false if the proposed redirection is to a C<file://...>
URL, and true otherwise.
+=head1 BEST PRACTICES
+
+The default settings can get you up and running quickly, but there are settings
+you can change in order to make your life easier.
+
+=head2 Handling Cookies
+
+You are encouraged to install L<Mozilla::PublicSuffix> and use
+L<HTTP::CookieJar::LWP> as your cookie jar. L<HTTP::CookieJar::LWP> provides a
+better security model matching that of current Web browsers when
+L<Mozilla::PublicSuffix> is installed.
+
+ use HTTP::CookieJar::LWP ();
+
+ my $jar = HTTP::CookieJar::LWP->new;
+ my $ua = LWP::UserAgent->new( cookie_jar => $jar );
+
+See L</"cookie_jar"> for more information.
+
+=head2 Managing Protocols
+
+C<protocols_allowed> gives you the ability to whitelist the protocols you're
+willing to allow.
+
+ my $ua = LWP::UserAgent->new(
+ protocols_allowed => [ 'http', 'https' ]
+ );
+
+This will prevent you from inadvertently following URLs like
+C<file:///etc/passwd>. See L</"protocols_allowed">.
+
+C<protocols_forbidden> gives you the ability to blacklist the protocols you're
+unwilling to allow.
+
+ my $ua = LWP::UserAgent->new(
+ protocols_forbidden => [ 'file', 'mailto', 'ssh', ]
+ );
+
+This can also prevent you from inadvertently following URLs like
+C<file:///etc/passwd>. See L</protocols_forbidden>.
+
=head1 SEE ALSO
See L<LWP> for a complete overview of libwww-perl5. See L<lwpcook>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/lib/LWP.pm
new/libwww-perl-6.39/lib/LWP.pm
--- old/libwww-perl-6.38/lib/LWP.pm 2019-03-25 19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/lib/LWP.pm 2019-05-06 16:18:42.000000000 +0200
@@ -1,6 +1,6 @@
package LWP;
-our $VERSION = '6.38';
+our $VERSION = '6.39';
require LWP::UserAgent; # this should load everything you need
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/t/base/protocols/nntp.t
new/libwww-perl-6.39/t/base/protocols/nntp.t
--- old/libwww-perl-6.38/t/base/protocols/nntp.t 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/t/base/protocols/nntp.t 2019-05-06
16:18:42.000000000 +0200
@@ -2,7 +2,7 @@
use warnings;
use LWP::UserAgent ();
-use Test::More;
+use Test::More skip_all => 'nntp.perl.org is unstable and
Test::RequiresInternet is not catching it';
use Test::RequiresInternet ( 'nntp.perl.org' => 119 );
plan tests => 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.38/xt/release/changes_has_content.t
new/libwww-perl-6.39/xt/release/changes_has_content.t
--- old/libwww-perl-6.38/xt/release/changes_has_content.t 2019-03-25
19:59:01.000000000 +0100
+++ new/libwww-perl-6.39/xt/release/changes_has_content.t 2019-05-06
16:18:42.000000000 +0200
@@ -8,7 +8,7 @@
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '6.38';
+my $newver = '6.39';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';
