Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-libwww-perl for
openSUSE:Factory checked in at 2022-04-16 00:12:51
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-libwww-perl (Old)
and /work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1941 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-libwww-perl"
Sat Apr 16 00:12:51 2022 rev:82 rq:969983 version:6.62
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-libwww-perl/perl-libwww-perl.changes
2022-01-29 20:57:44.860398961 +0100
+++
/work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1941/perl-libwww-perl.changes
2022-04-16 00:12:56.585544456 +0200
@@ -1,0 +2,9 @@
+Wed Apr 6 03:15:16 UTC 2022 - Tina M??ller <[email protected]>
+
+- updated to 6.62
+ see /usr/share/doc/packages/perl-libwww-perl/Changes
+
+ 6.62 2022-04-05 01:04:17Z
+ - Allow downloading to a filehandle (GH#400) (Andrew Fresh)
+
+-------------------------------------------------------------------
Old:
----
libwww-perl-6.61.tar.gz
New:
----
libwww-perl-6.62.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.xBFKyV/_old 2022-04-16 00:12:57.165545232 +0200
+++ /var/tmp/diff_new_pack.xBFKyV/_new 2022-04-16 00:12:57.169545237 +0200
@@ -18,10 +18,10 @@
%define cpan_name libwww-perl
Name: perl-libwww-perl
-Version: 6.61
+Version: 6.62
Release: 0
-Summary: The World-Wide Web library for Perl
License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: The World-Wide Web library for Perl
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/O/OA/OALDERS/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
++++++ libwww-perl-6.61.tar.gz -> libwww-perl-6.62.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/Changes new/libwww-perl-6.62/Changes
--- old/libwww-perl-6.61/Changes 2022-01-21 22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/Changes 2022-04-05 03:04:22.000000000 +0200
@@ -1,5 +1,8 @@
Change history for libwww-perl
+6.62 2022-04-05 01:04:17Z
+ - Allow downloading to a filehandle (GH#400) (Andrew Fresh)
+
6.61 2022-01-21 21:41:18Z
- Use File::Copy::move to attempt an atomic mirror (GH#401) (Andrew Fresh)
- Require Getopt::Long at runtime, too (GH#402) (Ville Skytt??)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/MANIFEST
new/libwww-perl-6.62/MANIFEST
--- old/libwww-perl-6.61/MANIFEST 2022-01-21 22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/MANIFEST 2022-04-05 03:04:22.000000000 +0200
@@ -53,6 +53,7 @@
t/leak/no_leak.t
t/local/autoload-get.t
t/local/autoload.t
+t/local/download_to_fh.t
t/local/get.t
t/local/http.t
t/local/httpsub.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/META.json
new/libwww-perl-6.62/META.json
--- old/libwww-perl-6.61/META.json 2022-01-21 22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/META.json 2022-04-05 03:04:22.000000000 +0200
@@ -112,96 +112,96 @@
"provides" : {
"LWP" : {
"file" : "lib/LWP.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Authen::Basic" : {
"file" : "lib/LWP/Authen/Basic.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Authen::Digest" : {
"file" : "lib/LWP/Authen/Digest.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Authen::Ntlm" : {
"file" : "lib/LWP/Authen/Ntlm.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::ConnCache" : {
"file" : "lib/LWP/ConnCache.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Debug" : {
"file" : "lib/LWP/Debug.pm",
- "version" : "6.61",
+ "version" : "6.62",
"x_deprecated" : 1
},
"LWP::Debug::TraceHTTP" : {
"file" : "lib/LWP/Debug/TraceHTTP.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::DebugFile" : {
"file" : "lib/LWP/DebugFile.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::MemberMixin" : {
"file" : "lib/LWP/MemberMixin.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol" : {
"file" : "lib/LWP/Protocol.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::cpan" : {
"file" : "lib/LWP/Protocol/cpan.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::data" : {
"file" : "lib/LWP/Protocol/data.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::file" : {
"file" : "lib/LWP/Protocol/file.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::ftp" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::gopher" : {
"file" : "lib/LWP/Protocol/gopher.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::http" : {
"file" : "lib/LWP/Protocol/http.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::loopback" : {
"file" : "lib/LWP/Protocol/loopback.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::mailto" : {
"file" : "lib/LWP/Protocol/mailto.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::nntp" : {
"file" : "lib/LWP/Protocol/nntp.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Protocol::nogo" : {
"file" : "lib/LWP/Protocol/nogo.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::RobotUA" : {
"file" : "lib/LWP/RobotUA.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::Simple" : {
"file" : "lib/LWP/Simple.pm",
- "version" : "6.61"
+ "version" : "6.62"
},
"LWP::UserAgent" : {
"file" : "lib/LWP/UserAgent.pm",
- "version" : "6.61"
+ "version" : "6.62"
}
},
"release_status" : "stable",
@@ -218,10 +218,10 @@
"x_IRC" : "irc://irc.perl.org/#lwp",
"x_MailingList" : "mailto:[email protected]";
},
- "version" : "6.61",
+ "version" : "6.62",
"x_Dist_Zilla" : {
"perl" : {
- "version" : "5.026001"
+ "version" : "5.034001"
},
"plugins" : [
{
@@ -273,7 +273,7 @@
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
- "version" : "0.004"
+ "version" : "0.006"
}
},
"name" : "MetaProvides::Package",
@@ -316,7 +316,7 @@
"class" : "Dist::Zilla::Plugin::Git::Contributors",
"config" : {
"Dist::Zilla::Plugin::Git::Contributors" : {
- "git_version" : "2.34.1",
+ "git_version" : "2.35.1",
"include_authors" : 0,
"include_releaser" : 1,
"order_by" : "name",
@@ -346,7 +346,7 @@
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
- "version" : "0.004"
+ "version" : "0.006"
}
},
"name" : "InstallGuide",
@@ -367,7 +367,7 @@
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
- "version" : "0.004"
+ "version" : "0.006"
}
},
"name" : "DynamicPrereqs",
@@ -631,7 +631,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.34.1",
+ "git_version" : "2.35.1",
"repo_root" : "."
}
},
@@ -762,7 +762,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.34.1",
+ "git_version" : "2.35.1",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -779,12 +779,12 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "v6.61",
+ "tag" : "v6.62",
"tag_format" : "v%V",
"tag_message" : "v%V"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.34.1",
+ "git_version" : "2.35.1",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -835,7 +835,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.34.1",
+ "git_version" : "2.35.1",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -855,7 +855,7 @@
"remotes_must_exist" : 1
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.34.1",
+ "git_version" : "2.35.1",
"repo_root" : "."
}
},
@@ -1038,8 +1038,8 @@
"Yves Orton <[email protected]>",
"Zefram <[email protected]>"
],
- "x_generated_by_perl" : "v5.26.1",
- "x_serialization_backend" : "Cpanel::JSON::XS version 4.04",
+ "x_generated_by_perl" : "v5.34.1",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 4.27",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/META.yml
new/libwww-perl-6.62/META.yml
--- old/libwww-perl-6.61/META.yml 2022-01-21 22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/META.yml 2022-04-05 03:04:22.000000000 +0200
@@ -31,74 +31,74 @@
provides:
LWP:
file: lib/LWP.pm
- version: '6.61'
+ version: '6.62'
LWP::Authen::Basic:
file: lib/LWP/Authen/Basic.pm
- version: '6.61'
+ version: '6.62'
LWP::Authen::Digest:
file: lib/LWP/Authen/Digest.pm
- version: '6.61'
+ version: '6.62'
LWP::Authen::Ntlm:
file: lib/LWP/Authen/Ntlm.pm
- version: '6.61'
+ version: '6.62'
LWP::ConnCache:
file: lib/LWP/ConnCache.pm
- version: '6.61'
+ version: '6.62'
LWP::Debug:
file: lib/LWP/Debug.pm
- version: '6.61'
+ version: '6.62'
x_deprecated: 1
LWP::Debug::TraceHTTP:
file: lib/LWP/Debug/TraceHTTP.pm
- version: '6.61'
+ version: '6.62'
LWP::DebugFile:
file: lib/LWP/DebugFile.pm
- version: '6.61'
+ version: '6.62'
LWP::MemberMixin:
file: lib/LWP/MemberMixin.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol:
file: lib/LWP/Protocol.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::cpan:
file: lib/LWP/Protocol/cpan.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::data:
file: lib/LWP/Protocol/data.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::file:
file: lib/LWP/Protocol/file.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::ftp:
file: lib/LWP/Protocol/ftp.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::gopher:
file: lib/LWP/Protocol/gopher.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::http:
file: lib/LWP/Protocol/http.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::loopback:
file: lib/LWP/Protocol/loopback.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::mailto:
file: lib/LWP/Protocol/mailto.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::nntp:
file: lib/LWP/Protocol/nntp.pm
- version: '6.61'
+ version: '6.62'
LWP::Protocol::nogo:
file: lib/LWP/Protocol/nogo.pm
- version: '6.61'
+ version: '6.62'
LWP::RobotUA:
file: lib/LWP/RobotUA.pm
- version: '6.61'
+ version: '6.62'
LWP::Simple:
file: lib/LWP/Simple.pm
- version: '6.61'
+ version: '6.62'
LWP::UserAgent:
file: lib/LWP/UserAgent.pm
- version: '6.61'
+ version: '6.62'
requires:
Digest::MD5: '0'
Encode: '2.12'
@@ -137,10 +137,10 @@
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.61'
+version: '6.62'
x_Dist_Zilla:
perl:
- version: '5.026001'
+ version: '5.034001'
plugins:
-
class: Dist::Zilla::Plugin::Git::GatherDir
@@ -181,7 +181,7 @@
meta_noindex: '1'
Dist::Zilla::Role::ModuleMetadata:
Module::Metadata: '1.000037'
- version: '0.004'
+ version: '0.006'
name: MetaProvides::Package
version: '2.004003'
-
@@ -213,7 +213,7 @@
class: Dist::Zilla::Plugin::Git::Contributors
config:
Dist::Zilla::Plugin::Git::Contributors:
- git_version: 2.34.1
+ git_version: 2.35.1
include_authors: 0
include_releaser: 1
order_by: name
@@ -237,7 +237,7 @@
config:
Dist::Zilla::Role::ModuleMetadata:
Module::Metadata: '1.000037'
- version: '0.004'
+ version: '0.006'
name: InstallGuide
version: '1.200014'
-
@@ -253,7 +253,7 @@
config:
Dist::Zilla::Role::ModuleMetadata:
Module::Metadata: '1.000037'
- version: '0.004'
+ version: '0.006'
name: DynamicPrereqs
version: '0.039'
-
@@ -480,7 +480,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.34.1
+ git_version: 2.35.1
repo_root: .
name: Git::Check
version: '2.048'
@@ -568,7 +568,7 @@
Dist::Zilla::Plugin::Git::Commit:
add_files_in: []
commit_msg: v%V%n%n%c
- signoff: 0
+ signoff: '0'
Dist::Zilla::Role::Git::DirtyFiles:
allow_dirty:
- Changes
@@ -578,7 +578,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.34.1
+ git_version: 2.35.1
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -591,11 +591,11 @@
branch: ~
changelog: Changes
signed: 0
- tag: v6.61
+ tag: v6.62
tag_format: v%V
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
- git_version: 2.34.1
+ git_version: 2.35.1
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -623,7 +623,7 @@
Dist::Zilla::Plugin::Git::Commit:
add_files_in: []
commit_msg: 'increment $VERSION after %v release'
- signoff: 0
+ signoff: '0'
Dist::Zilla::Role::Git::DirtyFiles:
allow_dirty:
- Build.PL
@@ -633,7 +633,7 @@
- (?^:^lib/.*\.pm$)
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.34.1
+ git_version: 2.35.1
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -647,7 +647,7 @@
- origin
remotes_must_exist: 1
Dist::Zilla::Role::Git::Repo:
- git_version: 2.34.1
+ git_version: 2.35.1
repo_root: .
name: Git::Push
version: '2.048'
@@ -810,6 +810,6 @@
- 'Yury Zavarin <[email protected]>'
- 'Yves Orton <[email protected]>'
- 'Zefram <[email protected]>'
-x_generated_by_perl: v5.26.1
-x_serialization_backend: 'YAML::Tiny version 1.70'
+x_generated_by_perl: v5.34.1
+x_serialization_backend: 'YAML::Tiny version 1.73'
x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/Makefile.PL
new/libwww-perl-6.62/Makefile.PL
--- old/libwww-perl-6.61/Makefile.PL 2022-01-21 22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/Makefile.PL 2022-04-05 03:04:22.000000000 +0200
@@ -89,7 +89,7 @@
"Test::Needs" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "6.61",
+ "VERSION" => "6.62",
"test" => {
"TESTS" => "t/*.t t/base/*.t t/base/protocols/*.t t/leak/*.t t/local/*.t
t/robot/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Authen/Basic.pm
new/libwww-perl-6.62/lib/LWP/Authen/Basic.pm
--- old/libwww-perl-6.61/lib/LWP/Authen/Basic.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Authen/Basic.pm 2022-04-05
03:04:22.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require Encode;
require MIME::Base64;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Authen/Digest.pm
new/libwww-perl-6.62/lib/LWP/Authen/Digest.pm
--- old/libwww-perl-6.61/lib/LWP/Authen/Digest.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Authen/Digest.pm 2022-04-05
03:04:22.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use parent 'LWP::Authen::Basic';
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require Digest::MD5;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Authen/Ntlm.pm
new/libwww-perl-6.62/lib/LWP/Authen/Ntlm.pm
--- old/libwww-perl-6.61/lib/LWP/Authen/Ntlm.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/Authen/Ntlm.pm 2022-04-05 03:04:22.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
use Authen::NTLM "1.02";
use MIME::Base64 "2.12";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/ConnCache.pm
new/libwww-perl-6.62/lib/LWP/ConnCache.pm
--- old/libwww-perl-6.61/lib/LWP/ConnCache.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/ConnCache.pm 2022-04-05 03:04:22.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
our $DEBUG;
sub new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Debug/TraceHTTP.pm
new/libwww-perl-6.62/lib/LWP/Debug/TraceHTTP.pm
--- old/libwww-perl-6.61/lib/LWP/Debug/TraceHTTP.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Debug/TraceHTTP.pm 2022-04-05
03:04:22.000000000 +0200
@@ -11,7 +11,7 @@
use strict;
use parent 'LWP::Protocol::http';
-our $VERSION = '6.61';
+our $VERSION = '6.62';
package # hide from PAUSE
LWP::Debug::TraceHTTP::Socket;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Debug.pm
new/libwww-perl-6.62/lib/LWP/Debug.pm
--- old/libwww-perl-6.61/lib/LWP/Debug.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/Debug.pm 2022-04-05 03:04:22.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::Debug; # legacy
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require Exporter;
our @ISA = qw(Exporter);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/DebugFile.pm
new/libwww-perl-6.62/lib/LWP/DebugFile.pm
--- old/libwww-perl-6.61/lib/LWP/DebugFile.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/DebugFile.pm 2022-04-05 03:04:22.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::DebugFile;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
# legacy stub
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/MemberMixin.pm
new/libwww-perl-6.62/lib/LWP/MemberMixin.pm
--- old/libwww-perl-6.61/lib/LWP/MemberMixin.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/MemberMixin.pm 2022-04-05 03:04:22.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::MemberMixin;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
sub _elem {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/cpan.pm
new/libwww-perl-6.62/lib/LWP/Protocol/cpan.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/cpan.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/cpan.pm 2022-04-05
03:04:22.000000000 +0200
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require URI;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/data.pm
new/libwww-perl-6.62/lib/LWP/Protocol/data.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/data.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/data.pm 2022-04-05
03:04:22.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/file.pm
new/libwww-perl-6.62/lib/LWP/Protocol/file.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/file.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/file.pm 2022-04-05
03:04:22.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require LWP::MediaTypes;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/ftp.pm
new/libwww-perl-6.62/lib/LWP/Protocol/ftp.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/ftp.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/ftp.pm 2022-04-05
03:04:22.000000000 +0200
@@ -5,7 +5,7 @@
use parent qw(LWP::Protocol);
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
use Carp ();
use HTTP::Status ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/gopher.pm
new/libwww-perl-6.62/lib/LWP/Protocol/gopher.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/gopher.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/gopher.pm 2022-04-05
03:04:22.000000000 +0200
@@ -9,7 +9,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/http.pm
new/libwww-perl-6.62/lib/LWP/Protocol/http.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/http.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/http.pm 2022-04-05
03:04:22.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/loopback.pm
new/libwww-perl-6.62/lib/LWP/Protocol/loopback.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/loopback.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/loopback.pm 2022-04-05
03:04:22.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require HTTP::Response;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/mailto.pm
new/libwww-perl-6.62/lib/LWP/Protocol/mailto.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/mailto.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/mailto.pm 2022-04-05
03:04:22.000000000 +0200
@@ -11,7 +11,7 @@
use Carp;
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
use parent qw(LWP::Protocol);
our $SENDMAIL;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/nntp.pm
new/libwww-perl-6.62/lib/LWP/Protocol/nntp.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/nntp.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/nntp.pm 2022-04-05
03:04:22.000000000 +0200
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol/nogo.pm
new/libwww-perl-6.62/lib/LWP/Protocol/nogo.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol/nogo.pm 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol/nogo.pm 2022-04-05
03:04:22.000000000 +0200
@@ -7,7 +7,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Protocol.pm
new/libwww-perl-6.62/lib/LWP/Protocol.pm
--- old/libwww-perl-6.61/lib/LWP/Protocol.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/Protocol.pm 2022-04-05 03:04:22.000000000
+0200
@@ -2,12 +2,13 @@
use parent 'LWP::MemberMixin';
-our $VERSION = '6.61';
+our $VERSION = '6.62';
use strict;
use Carp ();
use HTTP::Status ();
use HTTP::Response ();
+use Scalar::Util qw(openhandle);
use Try::Tiny qw(try catch);
my %ImplementedBy = (); # scheme => classname
@@ -110,8 +111,10 @@
if (!defined($arg) || !$response->is_success) {
$response->{default_add_content} = 1;
}
- elsif (!ref($arg) && length($arg)) {
- open(my $fh, ">", $arg) or die "Can't write to '$arg': $!";
+ elsif (defined(openhandle($arg)) || !ref($arg) && length($arg)) {
+ my $existing_fh = defined(openhandle($arg));
+ my $mode = $existing_fh ? '>&=' : '>';
+ open(my $fh, $mode, $arg) or die "Can't write to '$arg': $!";
binmode($fh);
push(@{$response->{handlers}{response_data}}, {
callback => sub {
@@ -121,7 +124,9 @@
});
push(@{$response->{handlers}{response_done}}, {
callback => sub {
- close($fh) or die "Can't write to '$arg': $!";
+ unless ($existing_fh) {
+ close($fh) or die "Can't write to '$arg': $!";
+ }
undef($fh);
},
});
@@ -260,6 +265,7 @@
$response = $protocol->request($request, $proxy, undef);
$response = $protocol->request($request, $proxy, '/tmp/sss');
$response = $protocol->request($request, $proxy, \&callback, 1024);
+ $response = $protocol->request($request, $proxy, $fh);
Dispatches a request over the protocol, and returns a response
object. This method needs to be overridden in subclasses. Refer to
@@ -276,6 +282,8 @@
content is stored within the C<$response>. If it's a simple scalar, then it's
interpreted as a file name and the content is written to this file. If it's a
code reference, then content is passed to this routine.
+If it is a filehandle, or similar, such as a L<File::Temp> object,
+content will be written to it.
The collector is a routine that will be called and which is
responsible for returning pieces (as ref to scalar) of the content to
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/RobotUA.pm
new/libwww-perl-6.62/lib/LWP/RobotUA.pm
--- old/libwww-perl-6.61/lib/LWP/RobotUA.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/RobotUA.pm 2022-04-05 03:04:22.000000000
+0200
@@ -2,7 +2,7 @@
use parent qw(LWP::UserAgent);
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require WWW::RobotRules;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/Simple.pm
new/libwww-perl-6.62/lib/LWP/Simple.pm
--- old/libwww-perl-6.61/lib/LWP/Simple.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/Simple.pm 2022-04-05 03:04:22.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require Exporter;
@@ -173,9 +173,12 @@
=head2 getstore
my $code = getstore($url, $file)
+ my $code = getstore($url, $filehandle)
Gets a document identified by a URL and stores it in the file. The
return value is the HTTP response code.
+You may also pass a writeable filehandle or similar,
+such as a L<File::Temp> object.
=head2 mirror
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP/UserAgent.pm
new/libwww-perl-6.62/lib/LWP/UserAgent.pm
--- old/libwww-perl-6.61/lib/LWP/UserAgent.pm 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/lib/LWP/UserAgent.pm 2022-04-05 03:04:22.000000000
+0200
@@ -14,10 +14,10 @@
use HTTP::Status ();
use LWP::Protocol ();
-use Scalar::Util qw(blessed);
+use Scalar::Util qw(blessed openhandle);
use Try::Tiny qw(try catch);
-our $VERSION = '6.61';
+our $VERSION = '6.62';
sub new
{
@@ -558,11 +558,13 @@
# Some sanity-checking...
Carp::croak("A :content_file value can't be undef")
unless defined $arg;
- Carp::croak("A :content_file value can't be a reference")
- if ref $arg;
- Carp::croak("A :content_file value can't be \"\"")
- unless length $arg;
+ unless ( defined openhandle($arg) ) {
+ Carp::croak("A :content_file value can't be a reference")
+ if ref $arg;
+ Carp::croak("A :content_file value can't be \"\"")
+ unless length $arg;
+ }
}
elsif ($args->[$i] eq ':read_size_hint') {
$size = $args->[$i + 1];
@@ -1850,13 +1852,15 @@
initialize headers of the request but will determine how the response
content is treated. The following special field names are recognized:
- ':content_file' => $filename
+ ':content_file' => $filename # or $filehandle
':content_cb' => \&callback
':read_size_hint' => $bytes
-If a C<$filename> is provided with the C<:content_file> option, then the
-response content will be saved here instead of in the response
-object. If a callback is provided with the C<:content_cb> option then
+If a C<$filename> or C<$filehandle> is provided with the C<:content_file>
+option, then the response content will be saved here instead of in
+the response object. The C<$filehandle> may also be an object with
+an open file descriptor, such as a L<File::Temp> object.
+If a callback is provided with the C<:content_cb> option then
this function will be called for each chunk of the response content as
it is received from the server. If neither of these options are
given, then the response content will accumulate in the response
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/lib/LWP.pm
new/libwww-perl-6.62/lib/LWP.pm
--- old/libwww-perl-6.61/lib/LWP.pm 2022-01-21 22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/lib/LWP.pm 2022-04-05 03:04:22.000000000 +0200
@@ -1,6 +1,6 @@
package LWP;
-our $VERSION = '6.61';
+our $VERSION = '6.62';
require LWP::UserAgent; # this should load everything you need
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/t/local/download_to_fh.t
new/libwww-perl-6.62/t/local/download_to_fh.t
--- old/libwww-perl-6.61/t/local/download_to_fh.t 1970-01-01
01:00:00.000000000 +0100
+++ new/libwww-perl-6.62/t/local/download_to_fh.t 2022-04-05
03:04:22.000000000 +0200
@@ -0,0 +1,42 @@
+use strict;
+use warnings;
+use Test::More;
+
+use File::Temp;
+use LWP::UserAgent;
+use LWP::Simple;
+require LWP::Protocol::file;
+
+my $src = File::Temp->new("src-XXXXXXXXX");
+my $dst = File::Temp->new("dst-XXXXXXXXX");
+
+$src->printflush("Test\n");
+$src->close;
+
+is LWP::Simple::getstore("file:$src", $dst), 200,
+ "Successful getstore into a File::Temp object";
+
+$dst->seek(0,0);
+is $dst->getline, "Test\n",
+ "getstore mirrored into the \$dst filehandle";
+
+TODO: { local $TODO = "mirror should support filehandles";
+$dst = File::Temp->new("dst-XXXXXXXXX");
+$src->printflush(''); # update timestamp
+is LWP::Simple::mirror("file:$src", $dst), 200,
+ "Successful getstore into a File::Temp object";
+
+$dst->seek(0,0);
+is $dst->getline, "Test\n",
+ "getstore mirrored into the \$dst filehandle";
+}
+
+$dst = File::Temp->new("dst-XXXXXXXXX");
+my $res = LWP::UserAgent->new
+ ->get("file:$src", ':content_file' => $dst);
+
+$dst->seek(0,0);
+is $dst->getline, "Test\n",
+ "\$ua->get with :content_file into the \$dst filehandle";
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/eol.t
new/libwww-perl-6.62/xt/author/eol.t
--- old/libwww-perl-6.61/xt/author/eol.t 2022-01-21 22:41:22.000000000
+0100
+++ new/libwww-perl-6.62/xt/author/eol.t 2022-04-05 03:04:22.000000000
+0200
@@ -47,6 +47,7 @@
't/leak/no_leak.t',
't/local/autoload-get.t',
't/local/autoload.t',
+ 't/local/download_to_fh.t',
't/local/get.t',
't/local/http.t',
't/local/httpsub.t',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/auth-b.t
new/libwww-perl-6.62/xt/author/live/jigsaw/auth-b.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/auth-b.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/auth-b.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use HTTP::Request;
use LWP::UserAgent;
@@ -23,7 +23,7 @@
my $ua = LWP::UserAgent->new(keep_alive => 1);
-my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Basic/";);
+my $req = HTTP::Request->new(GET => "https://jigsaw.w3.org/HTTP/Basic/";);
my $res = $ua->request($req);
isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
is($res->code, 401, 'Got a 401 response');
@@ -37,7 +37,7 @@
$ua = MyUA->new(keep_alive => 1);
-$req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Basic/";);
+$req = HTTP::Request->new(GET => "https://jigsaw.w3.org/HTTP/Basic/";);
$res = $ua->request($req);
isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/auth-d.t
new/libwww-perl-6.62/xt/author/live/jigsaw/auth-d.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/auth-d.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/auth-d.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use HTTP::Request;
use LWP::UserAgent;
@@ -25,7 +25,7 @@
my $ua = MyUA->new(keep_alive => 1);
- my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Digest/";);
+ my $req = HTTP::Request->new(GET => "https://jigsaw.w3.org/HTTP/Digest/";);
my $res = $ua->request($req);
isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/chunk.t
new/libwww-perl-6.62/xt/author/live/jigsaw/chunk.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/chunk.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/chunk.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use HTTP::Request;
use LWP::UserAgent;
@@ -10,7 +10,7 @@
my $ua = LWP::UserAgent->new(keep_alive => 1);
-my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/ChunkedScript";);
+my $req = HTTP::Request->new(GET =>
"https://jigsaw.w3.org/HTTP/ChunkedScript";);
my $res = $ua->request($req);
isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/md5-get.t
new/libwww-perl-6.62/xt/author/live/jigsaw/md5-get.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/md5-get.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/md5-get.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,29 +1,33 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use Digest::MD5 qw(md5_base64);
use HTTP::Request;
use LWP::UserAgent;
-plan tests => 5;
+my $tests = 5;
+plan tests => $tests;
-my $ua = LWP::UserAgent->new(keep_alive => 1);
+SKIP: {
+ skip 'LIVE_JIGSAW_TESTS not enabled', $tests if $ENV{NO_JIGSAW};
+ my $ua = LWP::UserAgent->new(keep_alive => 1);
-my $res = $ua->get(
- "http://jigsaw.w3.org/HTTP/h-content-md5.html";,
- "TE" => "deflate",
-);
-isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
-is($res->header('Content-MD5'), md5_base64($res->content).'==', 'Content-MD5
header matches content');
+ my $res = $ua->get(
+ "https://jigsaw.w3.org/HTTP/h-content-md5.html";,
+ "TE" => "deflate",
+ );
+ isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
+ is($res->header('Content-MD5'), md5_base64($res->content).'==',
'Content-MD5 header matches content');
-my $etag = $res->header("etag");
-$res = $ua->get(
- "http://jigsaw.w3.org/HTTP/h-content-md5.html";,
- "TE" => "deflate",
- "If-None-Match" => $etag,
-);
-isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
-is($res->code, 304, 'response code: 304');
-is($res->header('Client-Response-Num'), 2, 'Client-Response-Num header is 2');
+ my $etag = $res->header("etag");
+ $res = $ua->get(
+ "https://jigsaw.w3.org/HTTP/h-content-md5.html";,
+ "TE" => "deflate",
+ "If-None-Match" => $etag,
+ );
+ isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
+ is($res->code, 304, 'response code: 304');
+ is($res->header('Client-Response-Num'), 2, 'Client-Response-Num header is
2');
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/md5.t
new/libwww-perl-6.62/xt/author/live/jigsaw/md5.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/md5.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/md5.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,28 +1,34 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use Digest::MD5 qw(md5_base64);
use HTTP::Request;
use LWP::UserAgent;
-plan tests => 5;
+my $tests = 5;
-my $ua = LWP::UserAgent->new(keep_alive => 1);
+plan tests => $tests;
-my $req = HTTP::Request->new(GET =>
"http://jigsaw.w3.org/HTTP/h-content-md5.html";);
-$req->header("TE", "deflate");
+SKIP: {
+ skip 'LIVE_JIGSAW_TESTS not enabled', $tests if $ENV{NO_JIGSAW};
-my $res = $ua->request($req);
-isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
+ my $ua = LWP::UserAgent->new(keep_alive => 1);
-is($res->header('Content-MD5'), md5_base64($res->content).'==', 'Content-MD5
header matches content');
+ my $req = HTTP::Request->new(GET =>
"https://jigsaw.w3.org/HTTP/h-content-md5.html";);
+ $req->header("TE", "deflate");
-my $etag = $res->header("etag");
-$req->header("If-None-Match" => $etag);
+ my $res = $ua->request($req);
+ isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
-$res = $ua->request($req);
-isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
-is($res->code, 304, 'response code: 304');
-is($res->header('Client-Response-Num'), 2, 'Client-Response-Num header is 2');
+ is($res->header('Content-MD5'), md5_base64($res->content).'==',
'Content-MD5 header matches content');
+
+ my $etag = $res->header("etag");
+ $req->header("If-None-Match" => $etag);
+
+ $res = $ua->request($req);
+ isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
+ is($res->code, 304, 'response code: 304');
+ is($res->header('Client-Response-Num'), 2, 'Client-Response-Num header is
2');
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/neg-get.t
new/libwww-perl-6.62/xt/author/live/jigsaw/neg-get.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/neg-get.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/neg-get.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use LWP::UserAgent;
@@ -10,7 +10,7 @@
my $ua = LWP::UserAgent->new(keep_alive => 1);
my $res = $ua->get(
- "http://jigsaw.w3.org/HTTP/neg";,
+ "https://jigsaw.w3.org/HTTP/neg";,
Connection => "close",
);
isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/neg.t
new/libwww-perl-6.62/xt/author/live/jigsaw/neg.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/neg.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/neg.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use HTTP::Request;
use LWP::UserAgent;
@@ -10,7 +10,7 @@
my $ua = LWP::UserAgent->new(keep_alive => 1);
-my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/neg";);
+my $req = HTTP::Request->new(GET => "https://jigsaw.w3.org/HTTP/neg";);
$req->header(Connection => "close");
my $res = $ua->request($req);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/libwww-perl-6.61/xt/author/live/jigsaw/redirect-post.t
new/libwww-perl-6.62/xt/author/live/jigsaw/redirect-post.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/redirect-post.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/redirect-post.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use HTTP::Request;
use LWP::UserAgent;
@@ -16,7 +16,7 @@
my $encoded_data = encode_utf8(encode_json($data));
# 307 not redirectable.
-my $req = HTTP::Request->new('POST', "http://jigsaw.w3.org/HTTP/300/Go_307";,
undef, undef);
+my $req = HTTP::Request->new('POST', "https://jigsaw.w3.org/HTTP/300/Go_307";,
undef, undef);
my $res = $ua->request($req);
isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
is($res->code, 307, 'Got a 307 response');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/author/live/jigsaw/te.t
new/libwww-perl-6.62/xt/author/live/jigsaw/te.t
--- old/libwww-perl-6.61/xt/author/live/jigsaw/te.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/author/live/jigsaw/te.t 2022-04-05
03:04:22.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::RequiresInternet ('jigsaw.w3.org' => 80);
+use Test::RequiresInternet ('jigsaw.w3.org' => 443);
use HTTP::Request;
use LWP::UserAgent;
@@ -18,7 +18,7 @@
for my $te (@te) {
my $req
- = HTTP::Request->new(GET =>
'http://jigsaw.w3.org/HTTP/TE/foo.txt');
+ = HTTP::Request->new(GET =>
'https://jigsaw.w3.org/HTTP/TE/foo.txt');
if (defined $te) {
$req->header(TE => $te);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.61/xt/release/changes_has_content.t
new/libwww-perl-6.62/xt/release/changes_has_content.t
--- old/libwww-perl-6.61/xt/release/changes_has_content.t 2022-01-21
22:41:22.000000000 +0100
+++ new/libwww-perl-6.62/xt/release/changes_has_content.t 2022-04-05
03:04:22.000000000 +0200
@@ -8,7 +8,7 @@
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '6.61';
+my $newver = '6.62';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';
