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-06-03 14:16:39
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-libwww-perl (Old)
and /work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1548 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-libwww-perl"
Fri Jun 3 14:16:39 2022 rev:84 rq:980484 version:6.66
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-libwww-perl/perl-libwww-perl.changes
2022-05-12 22:57:27.340562806 +0200
+++
/work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1548/perl-libwww-perl.changes
2022-06-03 14:16:42.505319766 +0200
@@ -1,0 +2,13 @@
+Thu May 19 03:08:26 UTC 2022 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 6.66
+ see /usr/share/doc/packages/perl-libwww-perl/Changes
+
+ 6.66 2022-05-18 16:44:44Z
+ - Revert automatic follow of meta refresh tags which was added in 6.63
+ (GH#415) (Olaf Alders)
+
+ 6.65 2022-05-09 18:36:14Z
+ - fix NAME in Makefile.PL (GH#413) (Graham Knop)
+
+-------------------------------------------------------------------
Old:
----
libwww-perl-6.64.tar.gz
New:
----
libwww-perl-6.66.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.s5gNds/_old 2022-06-03 14:16:43.037320457 +0200
+++ /var/tmp/diff_new_pack.s5gNds/_new 2022-06-03 14:16:43.037320457 +0200
@@ -18,7 +18,7 @@
%define cpan_name libwww-perl
Name: perl-libwww-perl
-Version: 6.64
+Version: 6.66
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: The World-Wide Web library for Perl
++++++ libwww-perl-6.64.tar.gz -> libwww-perl-6.66.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/Changes new/libwww-perl-6.66/Changes
--- old/libwww-perl-6.64/Changes 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/Changes 2022-05-18 18:44:55.000000000 +0200
@@ -1,5 +1,12 @@
Change history for libwww-perl
+6.66 2022-05-18 16:44:44Z
+ - Revert automatic follow of meta refresh tags which was added in 6.63
+ (GH#415) (Olaf Alders)
+
+6.65 2022-05-09 18:36:14Z
+ - fix NAME in Makefile.PL (GH#413) (Graham Knop)
+
6.64 2022-04-26 13:16:03Z
- Remove unused variable introduced in 9d73bc422 (GH#411) (Olaf Alders)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/MANIFEST
new/libwww-perl-6.66/MANIFEST
--- old/libwww-perl-6.64/MANIFEST 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/MANIFEST 2022-05-18 18:44:55.000000000 +0200
@@ -98,4 +98,5 @@
xt/author/pod-syntax.t
xt/author/portability.t
xt/author/test-version.t
+xt/dependent-modules.t
xt/release/changes_has_content.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/META.json
new/libwww-perl-6.66/META.json
--- old/libwww-perl-6.64/META.json 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/META.json 2022-05-18 18:44:55.000000000 +0200
@@ -112,96 +112,96 @@
"provides" : {
"LWP" : {
"file" : "lib/LWP.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Authen::Basic" : {
"file" : "lib/LWP/Authen/Basic.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Authen::Digest" : {
"file" : "lib/LWP/Authen/Digest.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Authen::Ntlm" : {
"file" : "lib/LWP/Authen/Ntlm.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::ConnCache" : {
"file" : "lib/LWP/ConnCache.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Debug" : {
"file" : "lib/LWP/Debug.pm",
- "version" : "6.64",
+ "version" : "6.66",
"x_deprecated" : 1
},
"LWP::Debug::TraceHTTP" : {
"file" : "lib/LWP/Debug/TraceHTTP.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::DebugFile" : {
"file" : "lib/LWP/DebugFile.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::MemberMixin" : {
"file" : "lib/LWP/MemberMixin.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol" : {
"file" : "lib/LWP/Protocol.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::cpan" : {
"file" : "lib/LWP/Protocol/cpan.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::data" : {
"file" : "lib/LWP/Protocol/data.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::file" : {
"file" : "lib/LWP/Protocol/file.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::ftp" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::gopher" : {
"file" : "lib/LWP/Protocol/gopher.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::http" : {
"file" : "lib/LWP/Protocol/http.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::loopback" : {
"file" : "lib/LWP/Protocol/loopback.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::mailto" : {
"file" : "lib/LWP/Protocol/mailto.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::nntp" : {
"file" : "lib/LWP/Protocol/nntp.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Protocol::nogo" : {
"file" : "lib/LWP/Protocol/nogo.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::RobotUA" : {
"file" : "lib/LWP/RobotUA.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::Simple" : {
"file" : "lib/LWP/Simple.pm",
- "version" : "6.64"
+ "version" : "6.66"
},
"LWP::UserAgent" : {
"file" : "lib/LWP/UserAgent.pm",
- "version" : "6.64"
+ "version" : "6.66"
}
},
"release_status" : "stable",
@@ -218,7 +218,7 @@
"x_IRC" : "irc://irc.perl.org/#lwp",
"x_MailingList" : "mailto:lib...@perl.org";
},
- "version" : "6.64",
+ "version" : "6.66",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.034001"
@@ -316,7 +316,7 @@
"class" : "Dist::Zilla::Plugin::Git::Contributors",
"config" : {
"Dist::Zilla::Plugin::Git::Contributors" : {
- "git_version" : "2.36.0",
+ "git_version" : "2.36.1",
"include_authors" : 0,
"include_releaser" : 1,
"order_by" : "name",
@@ -631,7 +631,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.36.0",
+ "git_version" : "2.36.1",
"repo_root" : "."
}
},
@@ -762,7 +762,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.36.0",
+ "git_version" : "2.36.1",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -779,12 +779,12 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "v6.64",
+ "tag" : "v6.66",
"tag_format" : "v%V",
"tag_message" : "v%V"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.36.0",
+ "git_version" : "2.36.1",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -835,7 +835,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.36.0",
+ "git_version" : "2.36.1",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -855,7 +855,7 @@
"remotes_must_exist" : 1
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.36.0",
+ "git_version" : "2.36.1",
"repo_root" : "."
}
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/META.yml
new/libwww-perl-6.66/META.yml
--- old/libwww-perl-6.64/META.yml 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/META.yml 2022-05-18 18:44:55.000000000 +0200
@@ -31,74 +31,74 @@
provides:
LWP:
file: lib/LWP.pm
- version: '6.64'
+ version: '6.66'
LWP::Authen::Basic:
file: lib/LWP/Authen/Basic.pm
- version: '6.64'
+ version: '6.66'
LWP::Authen::Digest:
file: lib/LWP/Authen/Digest.pm
- version: '6.64'
+ version: '6.66'
LWP::Authen::Ntlm:
file: lib/LWP/Authen/Ntlm.pm
- version: '6.64'
+ version: '6.66'
LWP::ConnCache:
file: lib/LWP/ConnCache.pm
- version: '6.64'
+ version: '6.66'
LWP::Debug:
file: lib/LWP/Debug.pm
- version: '6.64'
+ version: '6.66'
x_deprecated: 1
LWP::Debug::TraceHTTP:
file: lib/LWP/Debug/TraceHTTP.pm
- version: '6.64'
+ version: '6.66'
LWP::DebugFile:
file: lib/LWP/DebugFile.pm
- version: '6.64'
+ version: '6.66'
LWP::MemberMixin:
file: lib/LWP/MemberMixin.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol:
file: lib/LWP/Protocol.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::cpan:
file: lib/LWP/Protocol/cpan.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::data:
file: lib/LWP/Protocol/data.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::file:
file: lib/LWP/Protocol/file.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::ftp:
file: lib/LWP/Protocol/ftp.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::gopher:
file: lib/LWP/Protocol/gopher.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::http:
file: lib/LWP/Protocol/http.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::loopback:
file: lib/LWP/Protocol/loopback.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::mailto:
file: lib/LWP/Protocol/mailto.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::nntp:
file: lib/LWP/Protocol/nntp.pm
- version: '6.64'
+ version: '6.66'
LWP::Protocol::nogo:
file: lib/LWP/Protocol/nogo.pm
- version: '6.64'
+ version: '6.66'
LWP::RobotUA:
file: lib/LWP/RobotUA.pm
- version: '6.64'
+ version: '6.66'
LWP::Simple:
file: lib/LWP/Simple.pm
- version: '6.64'
+ version: '6.66'
LWP::UserAgent:
file: lib/LWP/UserAgent.pm
- version: '6.64'
+ version: '6.66'
requires:
Digest::MD5: '0'
Encode: '2.12'
@@ -137,7 +137,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.64'
+version: '6.66'
x_Dist_Zilla:
perl:
version: '5.034001'
@@ -213,7 +213,7 @@
class: Dist::Zilla::Plugin::Git::Contributors
config:
Dist::Zilla::Plugin::Git::Contributors:
- git_version: 2.36.0
+ git_version: 2.36.1
include_authors: 0
include_releaser: 1
order_by: name
@@ -480,7 +480,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.36.0
+ git_version: 2.36.1
repo_root: .
name: Git::Check
version: '2.048'
@@ -578,7 +578,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.36.0
+ git_version: 2.36.1
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -591,11 +591,11 @@
branch: ~
changelog: Changes
signed: 0
- tag: v6.64
+ tag: v6.66
tag_format: v%V
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
- git_version: 2.36.0
+ git_version: 2.36.1
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -633,7 +633,7 @@
- (?^:^lib/.*\.pm$)
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.36.0
+ git_version: 2.36.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.36.0
+ git_version: 2.36.1
repo_root: .
name: Git::Push
version: '2.048'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/Makefile.PL
new/libwww-perl-6.66/Makefile.PL
--- old/libwww-perl-6.64/Makefile.PL 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/Makefile.PL 2022-05-18 18:44:55.000000000 +0200
@@ -89,7 +89,7 @@
"Test::Needs" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "6.64",
+ "VERSION" => "6.66",
"test" => {
"TESTS" => "t/*.t t/base/*.t t/base/protocols/*.t t/leak/*.t t/local/*.t
t/robot/*.t"
}
@@ -98,6 +98,7 @@
%WriteMakefileArgs = (
%WriteMakefileArgs,
EXE_FILES => [ map "bin/$_", @prog ],
+ NAME => 'LWP',
);
my %FallbackPrereqs = (
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/dist.ini
new/libwww-perl-6.66/dist.ini
--- old/libwww-perl-6.64/dist.ini 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/dist.ini 2022-05-18 18:44:55.000000000 +0200
@@ -65,6 +65,7 @@
header = | }
header = |}
WriteMakefile_arg = EXE_FILES => [ map "bin/$_", @prog ]
+WriteMakefile_arg = NAME => 'LWP'
; TODO strict and warnings to quiet the kwalitee tests
; [Test::Kwalitee]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Authen/Basic.pm
new/libwww-perl-6.66/lib/LWP/Authen/Basic.pm
--- old/libwww-perl-6.64/lib/LWP/Authen/Basic.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Authen/Basic.pm 2022-05-18
18:44:55.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require Encode;
require MIME::Base64;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Authen/Digest.pm
new/libwww-perl-6.66/lib/LWP/Authen/Digest.pm
--- old/libwww-perl-6.64/lib/LWP/Authen/Digest.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Authen/Digest.pm 2022-05-18
18:44:55.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use parent 'LWP::Authen::Basic';
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require Digest::MD5;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Authen/Ntlm.pm
new/libwww-perl-6.66/lib/LWP/Authen/Ntlm.pm
--- old/libwww-perl-6.64/lib/LWP/Authen/Ntlm.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/Authen/Ntlm.pm 2022-05-18 18:44:55.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
use Authen::NTLM "1.02";
use MIME::Base64 "2.12";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/ConnCache.pm
new/libwww-perl-6.66/lib/LWP/ConnCache.pm
--- old/libwww-perl-6.64/lib/LWP/ConnCache.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/ConnCache.pm 2022-05-18 18:44:55.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
our $DEBUG;
sub new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Debug/TraceHTTP.pm
new/libwww-perl-6.66/lib/LWP/Debug/TraceHTTP.pm
--- old/libwww-perl-6.64/lib/LWP/Debug/TraceHTTP.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Debug/TraceHTTP.pm 2022-05-18
18:44:55.000000000 +0200
@@ -11,7 +11,7 @@
use strict;
use parent 'LWP::Protocol::http';
-our $VERSION = '6.64';
+our $VERSION = '6.66';
package # hide from PAUSE
LWP::Debug::TraceHTTP::Socket;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Debug.pm
new/libwww-perl-6.66/lib/LWP/Debug.pm
--- old/libwww-perl-6.64/lib/LWP/Debug.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/Debug.pm 2022-05-18 18:44:55.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::Debug; # legacy
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require Exporter;
our @ISA = qw(Exporter);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/DebugFile.pm
new/libwww-perl-6.66/lib/LWP/DebugFile.pm
--- old/libwww-perl-6.64/lib/LWP/DebugFile.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/DebugFile.pm 2022-05-18 18:44:55.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::DebugFile;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
# legacy stub
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/MemberMixin.pm
new/libwww-perl-6.66/lib/LWP/MemberMixin.pm
--- old/libwww-perl-6.64/lib/LWP/MemberMixin.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/MemberMixin.pm 2022-05-18 18:44:55.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::MemberMixin;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
sub _elem {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/cpan.pm
new/libwww-perl-6.66/lib/LWP/Protocol/cpan.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/cpan.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/cpan.pm 2022-05-18
18:44:55.000000000 +0200
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require URI;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/data.pm
new/libwww-perl-6.66/lib/LWP/Protocol/data.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/data.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/data.pm 2022-05-18
18:44:55.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/file.pm
new/libwww-perl-6.66/lib/LWP/Protocol/file.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/file.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/file.pm 2022-05-18
18:44:55.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require LWP::MediaTypes;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/ftp.pm
new/libwww-perl-6.66/lib/LWP/Protocol/ftp.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/ftp.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/ftp.pm 2022-05-18
18:44:55.000000000 +0200
@@ -5,7 +5,7 @@
use parent qw(LWP::Protocol);
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
use Carp ();
use HTTP::Status ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/gopher.pm
new/libwww-perl-6.66/lib/LWP/Protocol/gopher.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/gopher.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/gopher.pm 2022-05-18
18:44:55.000000000 +0200
@@ -9,7 +9,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/http.pm
new/libwww-perl-6.66/lib/LWP/Protocol/http.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/http.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/http.pm 2022-05-18
18:44:55.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/loopback.pm
new/libwww-perl-6.66/lib/LWP/Protocol/loopback.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/loopback.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/loopback.pm 2022-05-18
18:44:55.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require HTTP::Response;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/mailto.pm
new/libwww-perl-6.66/lib/LWP/Protocol/mailto.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/mailto.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/mailto.pm 2022-05-18
18:44:55.000000000 +0200
@@ -11,7 +11,7 @@
use Carp;
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
use parent qw(LWP::Protocol);
our $SENDMAIL;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/nntp.pm
new/libwww-perl-6.66/lib/LWP/Protocol/nntp.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/nntp.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/nntp.pm 2022-05-18
18:44:55.000000000 +0200
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol/nogo.pm
new/libwww-perl-6.66/lib/LWP/Protocol/nogo.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol/nogo.pm 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol/nogo.pm 2022-05-18
18:44:55.000000000 +0200
@@ -7,7 +7,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Protocol.pm
new/libwww-perl-6.66/lib/LWP/Protocol.pm
--- old/libwww-perl-6.64/lib/LWP/Protocol.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/Protocol.pm 2022-05-18 18:44:55.000000000
+0200
@@ -2,7 +2,7 @@
use parent 'LWP::MemberMixin';
-our $VERSION = '6.64';
+our $VERSION = '6.66';
use strict;
use Carp ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/RobotUA.pm
new/libwww-perl-6.66/lib/LWP/RobotUA.pm
--- old/libwww-perl-6.64/lib/LWP/RobotUA.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/RobotUA.pm 2022-05-18 18:44:55.000000000
+0200
@@ -2,7 +2,7 @@
use parent qw(LWP::UserAgent);
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require WWW::RobotRules;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/Simple.pm
new/libwww-perl-6.66/lib/LWP/Simple.pm
--- old/libwww-perl-6.64/lib/LWP/Simple.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/Simple.pm 2022-05-18 18:44:55.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require Exporter;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP/UserAgent.pm
new/libwww-perl-6.66/lib/LWP/UserAgent.pm
--- old/libwww-perl-6.64/lib/LWP/UserAgent.pm 2022-04-26 15:16:15.000000000
+0200
+++ new/libwww-perl-6.66/lib/LWP/UserAgent.pm 2022-05-18 18:44:55.000000000
+0200
@@ -17,7 +17,7 @@
use Scalar::Util qw(blessed openhandle);
use Try::Tiny qw(try catch);
-our $VERSION = '6.64';
+our $VERSION = '6.66';
sub new
{
@@ -303,7 +303,7 @@
$response->previous($previous) if $previous;
if ($response->redirects >= $self->{max_redirect}) {
- if ($response->header('Location') or $response->header('Refresh')) {
+ if ($response->header('Location')) {
$response->header("Client-Warning" =>
"Redirect loop detected (max_redirect = $self->{max_redirect})"
);
@@ -751,41 +751,26 @@
my $flag = shift;
my $parser;
my $old = $self->set_my_handler("response_header", $flag ? sub {
- my($response, $ua) = @_;
- require HTML::HeadParser;
- $parser = HTML::HeadParser->new;
- $parser->xml_mode(1) if $response->content_is_xhtml;
- $parser->utf8_mode(1) if $] >= 5.008 && $HTML::Parser::VERSION
>= 3.40;
-
- push(@{$response->{handlers}{response_data}}, {
- callback => sub {
- return unless $parser;
- unless ($parser->parse($_[3])) {
- my $h = $parser->header;
- my $r = $_[0];
- for my $f ($h->header_field_names) {
- $r->init_header($f, [$h->header($f)]);
- }
- undef($parser);
- }
- },
- });
- push(@{$response->{handlers}{response_redirect}}, {
- callback => sub {
- my ($res, $ua, $handler, $data) = @_;
- my $refresh = $res->header('refresh') or return;
- my ($url) = $refresh =~ /;\s*url\s*=\s*['"]?([^"'>]+)/i
- or return;
- require HTML::Entities;
- HTML::Entities::decode($url);
- my $base = $res->request->uri;
- my $uri = $base->new_abs($url, $base);
- return if $uri == $base;
- return HTTP::Request->new(
- GET => $uri, [referer => $base]
- );
- },
- });
+ my($response, $ua) = @_;
+ require HTML::HeadParser;
+ $parser = HTML::HeadParser->new;
+ $parser->xml_mode(1) if $response->content_is_xhtml;
+ $parser->utf8_mode(1) if $] >= 5.008 && $HTML::Parser::VERSION
>= 3.40;
+
+ push(@{$response->{handlers}{response_data}}, {
+ callback => sub {
+ return unless $parser;
+ unless ($parser->parse($_[3])) {
+ my $h = $parser->header;
+ my $r = $_[0];
+ for my $f ($h->header_field_names) {
+ $r->init_header($f, [$h->header($f)]);
+ }
+ undef($parser);
+ }
+ },
+ });
+
} : undef,
m_media_type => "html",
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/lib/LWP.pm
new/libwww-perl-6.66/lib/LWP.pm
--- old/libwww-perl-6.64/lib/LWP.pm 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/lib/LWP.pm 2022-05-18 18:44:55.000000000 +0200
@@ -1,6 +1,6 @@
package LWP;
-our $VERSION = '6.64';
+our $VERSION = '6.66';
require LWP::UserAgent; # this should load everything you need
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/t/local/http.t
new/libwww-perl-6.66/t/local/http.t
--- old/libwww-perl-6.64/t/local/http.t 2022-04-26 15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/t/local/http.t 2022-05-18 18:44:55.000000000 +0200
@@ -64,7 +64,7 @@
return plan skip_all => 'We could not talk to our daemon' unless $DAEMON;
return plan skip_all => 'No base URI' unless $base;
- plan tests => 136;
+ plan tests => 130;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/0.01 " . $ua->agent);
@@ -230,21 +230,6 @@
$res = $ua->request($req);
isa_ok($res, 'HTTP::Response', 'redirect loop: good response object');
}
- { # meta refresh
- my $req = HTTP::Request->new(GET => url("/meta_refresh", $base));
- my $res = $ua->request($req);
-
- ok($res->is_success, 'meta_refresh: is_success');
- like($res->content, qr|/echo/meta_refresh|, 'meta_refresh: content
good');
- is($res->previous->code, 200, 'meta_refresh: code 200');
- is($res->redirects, 1, 'meta_refresh redirect count: 1');
-
- $ua->max_redirect(0);
- $res = $ua->request($req);
- is($res->redirects, 0, 'meta_refresh redirect loop: 0 redirects');
- like($res->header("Client-Warning"), qr/loop detected/i, 'meta_refresh
redirect loop: client warning');
- $ua->max_redirect(5);
- }
{ # basic auth
my $req = HTTP::Request->new(GET => url("/basic", $base));
my $res = MyUA->new->request($req);
@@ -660,20 +645,6 @@
$router{get_redirect2} = sub { shift->send_redirect("/redirect3/") };
$router{get_redirect3} = sub { shift->send_redirect("/redirect2/") };
$router{get_redirect4} = sub { my $r = HTTP::Response->new(303);
shift->send_response($r) };
- $router{get_meta_refresh} = sub {
- my($c,$r) = @_;
- $c->send_basic_header;
- $c->print("Content-Type: text/html");
- $c->send_crlf;
- $c->send_crlf;
- $c->print(<<' HTML');
- <html>
- <head>
- <meta http-equiv='refresh' content='0; url=/echo/meta_refresh' />
- </head>
- </html>
- HTML
- };
$router{post_echo} = sub {
my($c,$r) = @_;
$c->send_basic_header;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/xt/dependent-modules.t
new/libwww-perl-6.66/xt/dependent-modules.t
--- old/libwww-perl-6.64/xt/dependent-modules.t 1970-01-01 01:00:00.000000000
+0100
+++ new/libwww-perl-6.66/xt/dependent-modules.t 2022-05-18 18:44:55.000000000
+0200
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+# Test::Needs will fail the dzil build if RELEASE_TESTING is enabled and this
+# module is not installed, but we don't want to slow down every dzil build to
+# test dependents.
+
+use Test::More;
+
+local $ENV{RELEASE_TESTING} = 0;
+require Test::Needs;
+Test::Needs->import({'Test::DependentModules' => 0.27});
+
+my @modules = ('WWW::Mechanize');
+
+SKIP: {
+ skip '$ENV{TEST_DEPENDENTS} not set', scalar @modules
+ unless $ENV{TEST_DEPENDENTS};
+ Test::DependentModules::test_modules(@modules);
+}
+
+done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.64/xt/release/changes_has_content.t
new/libwww-perl-6.66/xt/release/changes_has_content.t
--- old/libwww-perl-6.64/xt/release/changes_has_content.t 2022-04-26
15:16:15.000000000 +0200
+++ new/libwww-perl-6.66/xt/release/changes_has_content.t 2022-05-18
18:44:56.000000000 +0200
@@ -8,7 +8,7 @@
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '6.64';
+my $newver = '6.66';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';
