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-05-12 22:57:25
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-libwww-perl (Old)
and /work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1538 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-libwww-perl"
Thu May 12 22:57:25 2022 rev:83 rq:975776 version:6.64
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-libwww-perl/perl-libwww-perl.changes
2022-04-16 00:12:56.585544456 +0200
+++
/work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1538/perl-libwww-perl.changes
2022-05-12 22:57:27.340562806 +0200
@@ -1,0 +2,12 @@
+Wed Apr 27 03:08:23 UTC 2022 - Tina M??ller <[email protected]>
+
+- updated to 6.64
+ see /usr/share/doc/packages/perl-libwww-perl/Changes
+
+ 6.64 2022-04-26 13:16:03Z
+ - Remove unused variable introduced in 9d73bc422 (GH#411) (Olaf Alders)
+
+ 6.63 2022-04-25 15:24:10Z
+ - Redirect on meta refresh (GH#409) (grr)
+
+-------------------------------------------------------------------
Old:
----
libwww-perl-6.62.tar.gz
New:
----
libwww-perl-6.64.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.V2MrvK/_old 2022-05-12 22:57:27.840563477 +0200
+++ /var/tmp/diff_new_pack.V2MrvK/_new 2022-05-12 22:57:27.844563483 +0200
@@ -18,7 +18,7 @@
%define cpan_name libwww-perl
Name: perl-libwww-perl
-Version: 6.62
+Version: 6.64
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: The World-Wide Web library for Perl
++++++ libwww-perl-6.62.tar.gz -> libwww-perl-6.64.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/Changes new/libwww-perl-6.64/Changes
--- old/libwww-perl-6.62/Changes 2022-04-05 03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/Changes 2022-04-26 15:16:15.000000000 +0200
@@ -1,5 +1,11 @@
Change history for libwww-perl
+6.64 2022-04-26 13:16:03Z
+ - Remove unused variable introduced in 9d73bc422 (GH#411) (Olaf Alders)
+
+6.63 2022-04-25 15:24:10Z
+ - Redirect on meta refresh (GH#409) (grr)
+
6.62 2022-04-05 01:04:17Z
- Allow downloading to a filehandle (GH#400) (Andrew Fresh)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/META.json
new/libwww-perl-6.64/META.json
--- old/libwww-perl-6.62/META.json 2022-04-05 03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/META.json 2022-04-26 15:16:15.000000000 +0200
@@ -112,96 +112,96 @@
"provides" : {
"LWP" : {
"file" : "lib/LWP.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Authen::Basic" : {
"file" : "lib/LWP/Authen/Basic.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Authen::Digest" : {
"file" : "lib/LWP/Authen/Digest.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Authen::Ntlm" : {
"file" : "lib/LWP/Authen/Ntlm.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::ConnCache" : {
"file" : "lib/LWP/ConnCache.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Debug" : {
"file" : "lib/LWP/Debug.pm",
- "version" : "6.62",
+ "version" : "6.64",
"x_deprecated" : 1
},
"LWP::Debug::TraceHTTP" : {
"file" : "lib/LWP/Debug/TraceHTTP.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::DebugFile" : {
"file" : "lib/LWP/DebugFile.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::MemberMixin" : {
"file" : "lib/LWP/MemberMixin.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol" : {
"file" : "lib/LWP/Protocol.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::cpan" : {
"file" : "lib/LWP/Protocol/cpan.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::data" : {
"file" : "lib/LWP/Protocol/data.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::file" : {
"file" : "lib/LWP/Protocol/file.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::ftp" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::gopher" : {
"file" : "lib/LWP/Protocol/gopher.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::http" : {
"file" : "lib/LWP/Protocol/http.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::loopback" : {
"file" : "lib/LWP/Protocol/loopback.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::mailto" : {
"file" : "lib/LWP/Protocol/mailto.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::nntp" : {
"file" : "lib/LWP/Protocol/nntp.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Protocol::nogo" : {
"file" : "lib/LWP/Protocol/nogo.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::RobotUA" : {
"file" : "lib/LWP/RobotUA.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::Simple" : {
"file" : "lib/LWP/Simple.pm",
- "version" : "6.62"
+ "version" : "6.64"
},
"LWP::UserAgent" : {
"file" : "lib/LWP/UserAgent.pm",
- "version" : "6.62"
+ "version" : "6.64"
}
},
"release_status" : "stable",
@@ -218,7 +218,7 @@
"x_IRC" : "irc://irc.perl.org/#lwp",
"x_MailingList" : "mailto:[email protected]";
},
- "version" : "6.62",
+ "version" : "6.64",
"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.35.1",
+ "git_version" : "2.36.0",
"include_authors" : 0,
"include_releaser" : 1,
"order_by" : "name",
@@ -381,7 +381,7 @@
"version" : "6.024"
},
"Dist::Zilla::Role::TestRunner" : {
- "default_jobs" : "1",
+ "default_jobs" : "8",
"version" : "6.024"
}
},
@@ -631,7 +631,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.35.1",
+ "git_version" : "2.36.0",
"repo_root" : "."
}
},
@@ -647,7 +647,7 @@
"class" : "Dist::Zilla::Plugin::RunExtraTests",
"config" : {
"Dist::Zilla::Role::TestRunner" : {
- "default_jobs" : "1"
+ "default_jobs" : "8"
}
},
"name" : "RunExtraTests",
@@ -762,7 +762,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.35.1",
+ "git_version" : "2.36.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -779,12 +779,12 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "v6.62",
+ "tag" : "v6.64",
"tag_format" : "v%V",
"tag_message" : "v%V"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.35.1",
+ "git_version" : "2.36.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -835,7 +835,7 @@
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.35.1",
+ "git_version" : "2.36.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
@@ -855,7 +855,7 @@
"remotes_must_exist" : 1
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.35.1",
+ "git_version" : "2.36.0",
"repo_root" : "."
}
},
@@ -969,6 +969,7 @@
"Graeme Thompson <[email protected]>",
"Graham Knop <[email protected]>",
"Gregory Oschwald <[email protected]>",
+ "grr <[email protected]>",
"Hans-H. Froehlich <[email protected]>",
"Ian Kilgore <[email protected]>",
"Jacob J <[email protected]>",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/META.yml
new/libwww-perl-6.64/META.yml
--- old/libwww-perl-6.62/META.yml 2022-04-05 03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/META.yml 2022-04-26 15:16:15.000000000 +0200
@@ -31,74 +31,74 @@
provides:
LWP:
file: lib/LWP.pm
- version: '6.62'
+ version: '6.64'
LWP::Authen::Basic:
file: lib/LWP/Authen/Basic.pm
- version: '6.62'
+ version: '6.64'
LWP::Authen::Digest:
file: lib/LWP/Authen/Digest.pm
- version: '6.62'
+ version: '6.64'
LWP::Authen::Ntlm:
file: lib/LWP/Authen/Ntlm.pm
- version: '6.62'
+ version: '6.64'
LWP::ConnCache:
file: lib/LWP/ConnCache.pm
- version: '6.62'
+ version: '6.64'
LWP::Debug:
file: lib/LWP/Debug.pm
- version: '6.62'
+ version: '6.64'
x_deprecated: 1
LWP::Debug::TraceHTTP:
file: lib/LWP/Debug/TraceHTTP.pm
- version: '6.62'
+ version: '6.64'
LWP::DebugFile:
file: lib/LWP/DebugFile.pm
- version: '6.62'
+ version: '6.64'
LWP::MemberMixin:
file: lib/LWP/MemberMixin.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol:
file: lib/LWP/Protocol.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::cpan:
file: lib/LWP/Protocol/cpan.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::data:
file: lib/LWP/Protocol/data.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::file:
file: lib/LWP/Protocol/file.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::ftp:
file: lib/LWP/Protocol/ftp.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::gopher:
file: lib/LWP/Protocol/gopher.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::http:
file: lib/LWP/Protocol/http.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::loopback:
file: lib/LWP/Protocol/loopback.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::mailto:
file: lib/LWP/Protocol/mailto.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::nntp:
file: lib/LWP/Protocol/nntp.pm
- version: '6.62'
+ version: '6.64'
LWP::Protocol::nogo:
file: lib/LWP/Protocol/nogo.pm
- version: '6.62'
+ version: '6.64'
LWP::RobotUA:
file: lib/LWP/RobotUA.pm
- version: '6.62'
+ version: '6.64'
LWP::Simple:
file: lib/LWP/Simple.pm
- version: '6.62'
+ version: '6.64'
LWP::UserAgent:
file: lib/LWP/UserAgent.pm
- version: '6.62'
+ version: '6.64'
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.62'
+version: '6.64'
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.35.1
+ git_version: 2.36.0
include_authors: 0
include_releaser: 1
order_by: name
@@ -263,7 +263,7 @@
make_path: make
version: '6.024'
Dist::Zilla::Role::TestRunner:
- default_jobs: '1'
+ default_jobs: '8'
version: '6.024'
name: MakeMaker::Awesome
version: '0.49'
@@ -480,7 +480,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.35.1
+ git_version: 2.36.0
repo_root: .
name: Git::Check
version: '2.048'
@@ -492,7 +492,7 @@
class: Dist::Zilla::Plugin::RunExtraTests
config:
Dist::Zilla::Role::TestRunner:
- default_jobs: '1'
+ default_jobs: '8'
name: RunExtraTests
version: '0.029'
-
@@ -578,7 +578,7 @@
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.35.1
+ git_version: 2.36.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
@@ -591,11 +591,11 @@
branch: ~
changelog: Changes
signed: 0
- tag: v6.62
+ tag: v6.64
tag_format: v%V
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
- git_version: 2.35.1
+ git_version: 2.36.0
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.35.1
+ git_version: 2.36.0
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.35.1
+ git_version: 2.36.0
repo_root: .
name: Git::Push
version: '2.048'
@@ -742,6 +742,7 @@
- 'Graeme Thompson <[email protected]>'
- 'Graham Knop <[email protected]>'
- 'Gregory Oschwald <[email protected]>'
+ - 'grr <[email protected]>'
- 'Hans-H. Froehlich <[email protected]>'
- 'Ian Kilgore <[email protected]>'
- 'Jacob J <[email protected]>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/Makefile.PL
new/libwww-perl-6.64/Makefile.PL
--- old/libwww-perl-6.62/Makefile.PL 2022-04-05 03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/Makefile.PL 2022-04-26 15:16:15.000000000 +0200
@@ -89,7 +89,7 @@
"Test::Needs" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "6.62",
+ "VERSION" => "6.64",
"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.62/lib/LWP/Authen/Basic.pm
new/libwww-perl-6.64/lib/LWP/Authen/Basic.pm
--- old/libwww-perl-6.62/lib/LWP/Authen/Basic.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Authen/Basic.pm 2022-04-26
15:16:15.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require Encode;
require MIME::Base64;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Authen/Digest.pm
new/libwww-perl-6.64/lib/LWP/Authen/Digest.pm
--- old/libwww-perl-6.62/lib/LWP/Authen/Digest.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Authen/Digest.pm 2022-04-26
15:16:15.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use parent 'LWP::Authen::Basic';
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require Digest::MD5;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Authen/Ntlm.pm
new/libwww-perl-6.64/lib/LWP/Authen/Ntlm.pm
--- old/libwww-perl-6.62/lib/LWP/Authen/Ntlm.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/Authen/Ntlm.pm 2022-04-26 15:16:15.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
use Authen::NTLM "1.02";
use MIME::Base64 "2.12";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/ConnCache.pm
new/libwww-perl-6.64/lib/LWP/ConnCache.pm
--- old/libwww-perl-6.62/lib/LWP/ConnCache.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/ConnCache.pm 2022-04-26 15:16:15.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
our $DEBUG;
sub new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Debug/TraceHTTP.pm
new/libwww-perl-6.64/lib/LWP/Debug/TraceHTTP.pm
--- old/libwww-perl-6.62/lib/LWP/Debug/TraceHTTP.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Debug/TraceHTTP.pm 2022-04-26
15:16:15.000000000 +0200
@@ -11,7 +11,7 @@
use strict;
use parent 'LWP::Protocol::http';
-our $VERSION = '6.62';
+our $VERSION = '6.64';
package # hide from PAUSE
LWP::Debug::TraceHTTP::Socket;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Debug.pm
new/libwww-perl-6.64/lib/LWP/Debug.pm
--- old/libwww-perl-6.62/lib/LWP/Debug.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/Debug.pm 2022-04-26 15:16:15.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::Debug; # legacy
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require Exporter;
our @ISA = qw(Exporter);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/DebugFile.pm
new/libwww-perl-6.64/lib/LWP/DebugFile.pm
--- old/libwww-perl-6.62/lib/LWP/DebugFile.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/DebugFile.pm 2022-04-26 15:16:15.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::DebugFile;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
# legacy stub
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/MemberMixin.pm
new/libwww-perl-6.64/lib/LWP/MemberMixin.pm
--- old/libwww-perl-6.62/lib/LWP/MemberMixin.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/MemberMixin.pm 2022-04-26 15:16:15.000000000
+0200
@@ -1,6 +1,6 @@
package LWP::MemberMixin;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
sub _elem {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/cpan.pm
new/libwww-perl-6.64/lib/LWP/Protocol/cpan.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/cpan.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/cpan.pm 2022-04-26
15:16:15.000000000 +0200
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require URI;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/data.pm
new/libwww-perl-6.64/lib/LWP/Protocol/data.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/data.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/data.pm 2022-04-26
15:16:15.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/file.pm
new/libwww-perl-6.64/lib/LWP/Protocol/file.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/file.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/file.pm 2022-04-26
15:16:15.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require LWP::MediaTypes;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/ftp.pm
new/libwww-perl-6.64/lib/LWP/Protocol/ftp.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/ftp.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/ftp.pm 2022-04-26
15:16:15.000000000 +0200
@@ -5,7 +5,7 @@
use parent qw(LWP::Protocol);
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
use Carp ();
use HTTP::Status ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/gopher.pm
new/libwww-perl-6.64/lib/LWP/Protocol/gopher.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/gopher.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/gopher.pm 2022-04-26
15:16:15.000000000 +0200
@@ -9,7 +9,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/http.pm
new/libwww-perl-6.64/lib/LWP/Protocol/http.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/http.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/http.pm 2022-04-26
15:16:15.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/loopback.pm
new/libwww-perl-6.64/lib/LWP/Protocol/loopback.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/loopback.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/loopback.pm 2022-04-26
15:16:15.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require HTTP::Response;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/mailto.pm
new/libwww-perl-6.64/lib/LWP/Protocol/mailto.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/mailto.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/mailto.pm 2022-04-26
15:16:15.000000000 +0200
@@ -11,7 +11,7 @@
use Carp;
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
use parent qw(LWP::Protocol);
our $SENDMAIL;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/nntp.pm
new/libwww-perl-6.64/lib/LWP/Protocol/nntp.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/nntp.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/nntp.pm 2022-04-26
15:16:15.000000000 +0200
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol/nogo.pm
new/libwww-perl-6.64/lib/LWP/Protocol/nogo.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol/nogo.pm 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol/nogo.pm 2022-04-26
15:16:15.000000000 +0200
@@ -7,7 +7,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Protocol.pm
new/libwww-perl-6.64/lib/LWP/Protocol.pm
--- old/libwww-perl-6.62/lib/LWP/Protocol.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/Protocol.pm 2022-04-26 15:16:15.000000000
+0200
@@ -2,7 +2,7 @@
use parent 'LWP::MemberMixin';
-our $VERSION = '6.62';
+our $VERSION = '6.64';
use strict;
use Carp ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/RobotUA.pm
new/libwww-perl-6.64/lib/LWP/RobotUA.pm
--- old/libwww-perl-6.62/lib/LWP/RobotUA.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/RobotUA.pm 2022-04-26 15:16:15.000000000
+0200
@@ -2,7 +2,7 @@
use parent qw(LWP::UserAgent);
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require WWW::RobotRules;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/Simple.pm
new/libwww-perl-6.64/lib/LWP/Simple.pm
--- old/libwww-perl-6.62/lib/LWP/Simple.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/Simple.pm 2022-04-26 15:16:15.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require Exporter;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP/UserAgent.pm
new/libwww-perl-6.64/lib/LWP/UserAgent.pm
--- old/libwww-perl-6.62/lib/LWP/UserAgent.pm 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/lib/LWP/UserAgent.pm 2022-04-26 15:16:15.000000000
+0200
@@ -17,7 +17,7 @@
use Scalar::Util qw(blessed openhandle);
use Try::Tiny qw(try catch);
-our $VERSION = '6.62';
+our $VERSION = '6.64';
sub new
{
@@ -303,7 +303,7 @@
$response->previous($previous) if $previous;
if ($response->redirects >= $self->{max_redirect}) {
- if ($response->header('Location')) {
+ if ($response->header('Location') or $response->header('Refresh')) {
$response->header("Client-Warning" =>
"Redirect loop detected (max_redirect = $self->{max_redirect})"
);
@@ -751,26 +751,41 @@
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);
- }
- },
- });
-
+ 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]
+ );
+ },
+ });
} : undef,
m_media_type => "html",
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/lib/LWP.pm
new/libwww-perl-6.64/lib/LWP.pm
--- old/libwww-perl-6.62/lib/LWP.pm 2022-04-05 03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/lib/LWP.pm 2022-04-26 15:16:15.000000000 +0200
@@ -1,6 +1,6 @@
package LWP;
-our $VERSION = '6.62';
+our $VERSION = '6.64';
require LWP::UserAgent; # this should load everything you need
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/t/local/http.t
new/libwww-perl-6.64/t/local/http.t
--- old/libwww-perl-6.62/t/local/http.t 2022-04-05 03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/t/local/http.t 2022-04-26 15:16:15.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 => 130;
+ plan tests => 136;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/0.01 " . $ua->agent);
@@ -230,6 +230,21 @@
$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);
@@ -645,6 +660,20 @@
$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.62/xt/author/pod-spell.t
new/libwww-perl-6.64/xt/author/pod-spell.t
--- old/libwww-perl-6.62/xt/author/pod-spell.t 2022-04-05 03:04:22.000000000
+0200
+++ new/libwww-perl-6.64/xt/author/pod-spell.t 2022-04-26 15:16:15.000000000
+0200
@@ -349,6 +349,7 @@
gopher
gpeters
granny
+grr
haarg
hfroehlich
http
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.62/xt/release/changes_has_content.t
new/libwww-perl-6.64/xt/release/changes_has_content.t
--- old/libwww-perl-6.62/xt/release/changes_has_content.t 2022-04-05
03:04:22.000000000 +0200
+++ new/libwww-perl-6.64/xt/release/changes_has_content.t 2022-04-26
15:16:15.000000000 +0200
@@ -8,7 +8,7 @@
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '6.62';
+my $newver = '6.64';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';
