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-01-29 20:57:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-libwww-perl (Old)
and /work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1898 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-libwww-perl"
Sat Jan 29 20:57:33 2022 rev:81 rq:949649 version:6.61
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-libwww-perl/perl-libwww-perl.changes
2022-01-03 10:49:02.167571641 +0100
+++
/work/SRC/openSUSE:Factory/.perl-libwww-perl.new.1898/perl-libwww-perl.changes
2022-01-29 20:57:44.860398961 +0100
@@ -1,0 +2,10 @@
+Sat Jan 22 03:09:16 UTC 2022 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 6.61
+ see /usr/share/doc/packages/perl-libwww-perl/Changes
+
+ 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??)
+
+-------------------------------------------------------------------
Old:
----
libwww-perl-6.60.tar.gz
New:
----
libwww-perl-6.61.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.u6qzlM/_old 2022-01-29 20:57:45.400395459 +0100
+++ /var/tmp/diff_new_pack.u6qzlM/_new 2022-01-29 20:57:45.404395433 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-libwww-perl
#
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2022 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,7 +18,7 @@
%define cpan_name libwww-perl
Name: perl-libwww-perl
-Version: 6.60
+Version: 6.61
Release: 0
Summary: The World-Wide Web library for Perl
License: Artistic-1.0 OR GPL-1.0-or-later
++++++ libwww-perl-6.60.tar.gz -> libwww-perl-6.61.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/Changes new/libwww-perl-6.61/Changes
--- old/libwww-perl-6.60/Changes 2021-12-17 23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/Changes 2022-01-21 22:41:22.000000000 +0100
@@ -1,6 +1,11 @@
Change history for libwww-perl
+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??)
+
6.60 2021-12-17 22:29:57Z
+ - Mirror temporary file handling fixes (GH#393) (Ville Skytt??)
- Warn if updating modification time of mirrored file fails (GH#399)
(Ville Skytt??)
6.59 2021-12-02 21:16:04Z
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/META.json
new/libwww-perl-6.61/META.json
--- old/libwww-perl-6.60/META.json 2021-12-17 23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/META.json 2022-01-21 22:41:22.000000000 +0100
@@ -56,7 +56,10 @@
"Digest::MD5" : "0",
"Encode" : "2.12",
"Encode::Locale" : "0",
+ "File::Copy" : "0",
"File::Listing" : "6",
+ "File::Temp" : "0",
+ "Getopt::Long" : "0",
"HTML::Entities" : "0",
"HTML::HeadParser" : "0",
"HTTP::Cookies" : "6",
@@ -109,96 +112,96 @@
"provides" : {
"LWP" : {
"file" : "lib/LWP.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Authen::Basic" : {
"file" : "lib/LWP/Authen/Basic.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Authen::Digest" : {
"file" : "lib/LWP/Authen/Digest.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Authen::Ntlm" : {
"file" : "lib/LWP/Authen/Ntlm.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::ConnCache" : {
"file" : "lib/LWP/ConnCache.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Debug" : {
"file" : "lib/LWP/Debug.pm",
- "version" : "6.60",
+ "version" : "6.61",
"x_deprecated" : 1
},
"LWP::Debug::TraceHTTP" : {
"file" : "lib/LWP/Debug/TraceHTTP.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::DebugFile" : {
"file" : "lib/LWP/DebugFile.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::MemberMixin" : {
"file" : "lib/LWP/MemberMixin.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol" : {
"file" : "lib/LWP/Protocol.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::cpan" : {
"file" : "lib/LWP/Protocol/cpan.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::data" : {
"file" : "lib/LWP/Protocol/data.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::file" : {
"file" : "lib/LWP/Protocol/file.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::ftp" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::gopher" : {
"file" : "lib/LWP/Protocol/gopher.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::http" : {
"file" : "lib/LWP/Protocol/http.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::loopback" : {
"file" : "lib/LWP/Protocol/loopback.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::mailto" : {
"file" : "lib/LWP/Protocol/mailto.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::nntp" : {
"file" : "lib/LWP/Protocol/nntp.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Protocol::nogo" : {
"file" : "lib/LWP/Protocol/nogo.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::RobotUA" : {
"file" : "lib/LWP/RobotUA.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::Simple" : {
"file" : "lib/LWP/Simple.pm",
- "version" : "6.60"
+ "version" : "6.61"
},
"LWP::UserAgent" : {
"file" : "lib/LWP/UserAgent.pm",
- "version" : "6.60"
+ "version" : "6.61"
}
},
"release_status" : "stable",
@@ -215,7 +218,7 @@
"x_IRC" : "irc://irc.perl.org/#lwp",
"x_MailingList" : "mailto:lib...@perl.org";
},
- "version" : "6.60",
+ "version" : "6.61",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.026001"
@@ -776,7 +779,7 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "v6.60",
+ "tag" : "v6.61",
"tag_format" : "v%V",
"tag_message" : "v%V"
},
@@ -936,6 +939,7 @@
"amire80 <amir.ahar...@gmail.com>",
"Andreas J. Koenig <andreas.koe...@anima.de>",
"Andrew Grangaard <granny-git...@ofb.net>",
+ "Andrew Hewus Fresh <and...@afresh1.com>",
"Anirvan Chatterjee <anir...@users.noreply.github.com>",
"Arne Johannessen <g...@arne.johannessen.de>",
"BGMNT <freeeri...@mailinator.com>",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/META.yml
new/libwww-perl-6.61/META.yml
--- old/libwww-perl-6.60/META.yml 2021-12-17 23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/META.yml 2022-01-21 22:41:22.000000000 +0100
@@ -31,79 +31,82 @@
provides:
LWP:
file: lib/LWP.pm
- version: '6.60'
+ version: '6.61'
LWP::Authen::Basic:
file: lib/LWP/Authen/Basic.pm
- version: '6.60'
+ version: '6.61'
LWP::Authen::Digest:
file: lib/LWP/Authen/Digest.pm
- version: '6.60'
+ version: '6.61'
LWP::Authen::Ntlm:
file: lib/LWP/Authen/Ntlm.pm
- version: '6.60'
+ version: '6.61'
LWP::ConnCache:
file: lib/LWP/ConnCache.pm
- version: '6.60'
+ version: '6.61'
LWP::Debug:
file: lib/LWP/Debug.pm
- version: '6.60'
+ version: '6.61'
x_deprecated: 1
LWP::Debug::TraceHTTP:
file: lib/LWP/Debug/TraceHTTP.pm
- version: '6.60'
+ version: '6.61'
LWP::DebugFile:
file: lib/LWP/DebugFile.pm
- version: '6.60'
+ version: '6.61'
LWP::MemberMixin:
file: lib/LWP/MemberMixin.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol:
file: lib/LWP/Protocol.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::cpan:
file: lib/LWP/Protocol/cpan.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::data:
file: lib/LWP/Protocol/data.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::file:
file: lib/LWP/Protocol/file.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::ftp:
file: lib/LWP/Protocol/ftp.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::gopher:
file: lib/LWP/Protocol/gopher.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::http:
file: lib/LWP/Protocol/http.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::loopback:
file: lib/LWP/Protocol/loopback.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::mailto:
file: lib/LWP/Protocol/mailto.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::nntp:
file: lib/LWP/Protocol/nntp.pm
- version: '6.60'
+ version: '6.61'
LWP::Protocol::nogo:
file: lib/LWP/Protocol/nogo.pm
- version: '6.60'
+ version: '6.61'
LWP::RobotUA:
file: lib/LWP/RobotUA.pm
- version: '6.60'
+ version: '6.61'
LWP::Simple:
file: lib/LWP/Simple.pm
- version: '6.60'
+ version: '6.61'
LWP::UserAgent:
file: lib/LWP/UserAgent.pm
- version: '6.60'
+ version: '6.61'
requires:
Digest::MD5: '0'
Encode: '2.12'
Encode::Locale: '0'
+ File::Copy: '0'
File::Listing: '6'
+ File::Temp: '0'
+ Getopt::Long: '0'
HTML::Entities: '0'
HTML::HeadParser: '0'
HTTP::Cookies: '6'
@@ -134,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.60'
+version: '6.61'
x_Dist_Zilla:
perl:
version: '5.026001'
@@ -588,7 +591,7 @@
branch: ~
changelog: Changes
signed: 0
- tag: v6.60
+ tag: v6.61
tag_format: v%V
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
@@ -709,6 +712,7 @@
- 'amire80 <amir.ahar...@gmail.com>'
- 'Andreas J. Koenig <andreas.koe...@anima.de>'
- 'Andrew Grangaard <granny-git...@ofb.net>'
+ - 'Andrew Hewus Fresh <and...@afresh1.com>'
- 'Anirvan Chatterjee <anir...@users.noreply.github.com>'
- 'Arne Johannessen <g...@arne.johannessen.de>'
- 'BGMNT <freeeri...@mailinator.com>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/Makefile.PL
new/libwww-perl-6.61/Makefile.PL
--- old/libwww-perl-6.60/Makefile.PL 2021-12-17 23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/Makefile.PL 2022-01-21 22:41:22.000000000 +0100
@@ -51,7 +51,10 @@
"Digest::MD5" => 0,
"Encode" => "2.12",
"Encode::Locale" => 0,
+ "File::Copy" => 0,
"File::Listing" => 6,
+ "File::Temp" => 0,
+ "Getopt::Long" => 0,
"HTML::Entities" => 0,
"HTML::HeadParser" => 0,
"HTTP::Cookies" => 6,
@@ -86,7 +89,7 @@
"Test::Needs" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "6.60",
+ "VERSION" => "6.61",
"test" => {
"TESTS" => "t/*.t t/base/*.t t/base/protocols/*.t t/leak/*.t t/local/*.t
t/robot/*.t"
}
@@ -102,9 +105,12 @@
"Encode" => "2.12",
"Encode::Locale" => 0,
"ExtUtils::MakeMaker" => 0,
+ "File::Copy" => 0,
"File::Listing" => 6,
"File::Spec" => 0,
+ "File::Temp" => 0,
"FindBin" => 0,
+ "Getopt::Long" => 0,
"HTML::Entities" => 0,
"HTML::HeadParser" => 0,
"HTTP::Cookies" => 6,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/cpanfile
new/libwww-perl-6.61/cpanfile
--- old/libwww-perl-6.60/cpanfile 2021-12-17 23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/cpanfile 2022-01-21 22:41:22.000000000 +0100
@@ -15,7 +15,10 @@
requires 'Digest::MD5';
requires 'Encode' => '2.12';
requires 'Encode::Locale';
+ requires 'File::Copy';
requires 'File::Listing' => '6';
+ requires 'File::Temp';
+ requires 'Getopt::Long';
requires 'HTML::Entities';
requires 'HTML::HeadParser';
requires 'HTTP::Cookies' => '6';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Authen/Basic.pm
new/libwww-perl-6.61/lib/LWP/Authen/Basic.pm
--- old/libwww-perl-6.60/lib/LWP/Authen/Basic.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Authen/Basic.pm 2022-01-21
22:41:22.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require Encode;
require MIME::Base64;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Authen/Digest.pm
new/libwww-perl-6.61/lib/LWP/Authen/Digest.pm
--- old/libwww-perl-6.60/lib/LWP/Authen/Digest.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Authen/Digest.pm 2022-01-21
22:41:22.000000000 +0100
@@ -3,7 +3,7 @@
use strict;
use parent 'LWP::Authen::Basic';
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require Digest::MD5;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Authen/Ntlm.pm
new/libwww-perl-6.61/lib/LWP/Authen/Ntlm.pm
--- old/libwww-perl-6.60/lib/LWP/Authen/Ntlm.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/Authen/Ntlm.pm 2022-01-21 22:41:22.000000000
+0100
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
use Authen::NTLM "1.02";
use MIME::Base64 "2.12";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/ConnCache.pm
new/libwww-perl-6.61/lib/LWP/ConnCache.pm
--- old/libwww-perl-6.60/lib/LWP/ConnCache.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/ConnCache.pm 2022-01-21 22:41:22.000000000
+0100
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
our $DEBUG;
sub new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Debug/TraceHTTP.pm
new/libwww-perl-6.61/lib/LWP/Debug/TraceHTTP.pm
--- old/libwww-perl-6.60/lib/LWP/Debug/TraceHTTP.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Debug/TraceHTTP.pm 2022-01-21
22:41:22.000000000 +0100
@@ -11,7 +11,7 @@
use strict;
use parent 'LWP::Protocol::http';
-our $VERSION = '6.60';
+our $VERSION = '6.61';
package # hide from PAUSE
LWP::Debug::TraceHTTP::Socket;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Debug.pm
new/libwww-perl-6.61/lib/LWP/Debug.pm
--- old/libwww-perl-6.60/lib/LWP/Debug.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/Debug.pm 2022-01-21 22:41:22.000000000
+0100
@@ -1,6 +1,6 @@
package LWP::Debug; # legacy
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require Exporter;
our @ISA = qw(Exporter);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/DebugFile.pm
new/libwww-perl-6.61/lib/LWP/DebugFile.pm
--- old/libwww-perl-6.60/lib/LWP/DebugFile.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/DebugFile.pm 2022-01-21 22:41:22.000000000
+0100
@@ -1,6 +1,6 @@
package LWP::DebugFile;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
# legacy stub
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/MemberMixin.pm
new/libwww-perl-6.61/lib/LWP/MemberMixin.pm
--- old/libwww-perl-6.60/lib/LWP/MemberMixin.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/MemberMixin.pm 2022-01-21 22:41:22.000000000
+0100
@@ -1,6 +1,6 @@
package LWP::MemberMixin;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
sub _elem {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/cpan.pm
new/libwww-perl-6.61/lib/LWP/Protocol/cpan.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/cpan.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/cpan.pm 2022-01-21
22:41:22.000000000 +0100
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require URI;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/data.pm
new/libwww-perl-6.61/lib/LWP/Protocol/data.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/data.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/data.pm 2022-01-21
22:41:22.000000000 +0100
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/file.pm
new/libwww-perl-6.61/lib/LWP/Protocol/file.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/file.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/file.pm 2022-01-21
22:41:22.000000000 +0100
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require LWP::MediaTypes;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/ftp.pm
new/libwww-perl-6.61/lib/LWP/Protocol/ftp.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/ftp.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/ftp.pm 2022-01-21
22:41:22.000000000 +0100
@@ -5,7 +5,7 @@
use parent qw(LWP::Protocol);
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
use Carp ();
use HTTP::Status ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/gopher.pm
new/libwww-perl-6.61/lib/LWP/Protocol/gopher.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/gopher.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/gopher.pm 2022-01-21
22:41:22.000000000 +0100
@@ -9,7 +9,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/http.pm
new/libwww-perl-6.61/lib/LWP/Protocol/http.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/http.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/http.pm 2022-01-21
22:41:22.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/loopback.pm
new/libwww-perl-6.61/lib/LWP/Protocol/loopback.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/loopback.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/loopback.pm 2022-01-21
22:41:22.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require HTTP::Response;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/mailto.pm
new/libwww-perl-6.61/lib/LWP/Protocol/mailto.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/mailto.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/mailto.pm 2022-01-21
22:41:22.000000000 +0100
@@ -11,7 +11,7 @@
use Carp;
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
use parent qw(LWP::Protocol);
our $SENDMAIL;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/nntp.pm
new/libwww-perl-6.61/lib/LWP/Protocol/nntp.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/nntp.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/nntp.pm 2022-01-21
22:41:22.000000000 +0100
@@ -4,7 +4,7 @@
use parent qw(LWP::Protocol);
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol/nogo.pm
new/libwww-perl-6.61/lib/LWP/Protocol/nogo.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol/nogo.pm 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol/nogo.pm 2022-01-21
22:41:22.000000000 +0100
@@ -7,7 +7,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require HTTP::Response;
require HTTP::Status;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Protocol.pm
new/libwww-perl-6.61/lib/LWP/Protocol.pm
--- old/libwww-perl-6.60/lib/LWP/Protocol.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/Protocol.pm 2022-01-21 22:41:22.000000000
+0100
@@ -2,7 +2,7 @@
use parent 'LWP::MemberMixin';
-our $VERSION = '6.60';
+our $VERSION = '6.61';
use strict;
use Carp ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/RobotUA.pm
new/libwww-perl-6.61/lib/LWP/RobotUA.pm
--- old/libwww-perl-6.60/lib/LWP/RobotUA.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/RobotUA.pm 2022-01-21 22:41:22.000000000
+0100
@@ -2,7 +2,7 @@
use parent qw(LWP::UserAgent);
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require WWW::RobotRules;
require HTTP::Request;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/Simple.pm
new/libwww-perl-6.61/lib/LWP/Simple.pm
--- old/libwww-perl-6.60/lib/LWP/Simple.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/Simple.pm 2022-01-21 22:41:22.000000000
+0100
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require Exporter;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP/UserAgent.pm
new/libwww-perl-6.61/lib/LWP/UserAgent.pm
--- old/libwww-perl-6.60/lib/LWP/UserAgent.pm 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/lib/LWP/UserAgent.pm 2022-01-21 22:41:22.000000000
+0100
@@ -5,6 +5,7 @@
use parent qw(LWP::MemberMixin);
use Carp ();
+use File::Copy ();
use HTTP::Request ();
use HTTP::Response ();
use HTTP::Date ();
@@ -16,7 +17,7 @@
use Scalar::Util qw(blessed);
use Try::Tiny qw(try catch);
-our $VERSION = '6.60';
+our $VERSION = '6.61';
sub new
{
@@ -1005,10 +1006,14 @@
$request->header( 'If-Modified-Since' =>
HTTP::Date::time2str($mtime) );
}
}
- my $tmpfile = "$file-$$";
+
+ require File::Temp;
+ my ($tmpfh, $tmpfile) = File::Temp::tempfile("$file-XXXXXX");
+ close($tmpfh) or die "Could not close tmpfile '$tmpfile': $!";
my $response = $self->request($request, $tmpfile);
if ( $response->header('X-Died') ) {
+ unlink($tmpfile);
die $response->header('X-Died');
}
@@ -1031,14 +1036,19 @@
# The file was the expected length.
else {
# Replace the stale file with a fresh copy
- if ( -e $file ) {
- # Some DOSish systems fail to rename if the target exists
- chmod 0777, $file;
- unlink $file;
- }
- rename( $tmpfile, $file )
+ # File::Copy will attempt to do it atomically,
+ # and fall back to a delete + copy if that fails.
+ File::Copy::move( $tmpfile, $file )
or die "Cannot rename '$tmpfile' to '$file': $!\n";
+ # Set standard file permissions if umask is supported.
+ # If not, leave what File::Temp created in effect.
+ if ( defined(my $umask = umask()) ) {
+ my $mode = 0666 &~ $umask;
+ chmod $mode, $file
+ or die sprintf("Cannot chmod %o '%s': %s\n", $mode, $file,
$!);
+ }
+
# make sure the file has the same last modification time
if ( my $lm = $response->last_modified ) {
utime $lm, $lm, $file
@@ -1914,6 +1924,8 @@
will be downloaded again. The modification time of the file will be
forced to match that of the server.
+Uses L<File::Copy/move> to attempt to atomically replace the C<$filename>.
+
The return value is an L<HTTP::Response> object.
=head2 patch
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/lib/LWP.pm
new/libwww-perl-6.61/lib/LWP.pm
--- old/libwww-perl-6.60/lib/LWP.pm 2021-12-17 23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/lib/LWP.pm 2022-01-21 22:41:22.000000000 +0100
@@ -1,6 +1,6 @@
package LWP;
-our $VERSION = '6.60';
+our $VERSION = '6.61';
require LWP::UserAgent; # this should load everything you need
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/t/00-report-prereqs.dd
new/libwww-perl-6.61/t/00-report-prereqs.dd
--- old/libwww-perl-6.60/t/00-report-prereqs.dd 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/t/00-report-prereqs.dd 2022-01-21 22:41:22.000000000
+0100
@@ -35,7 +35,10 @@
'Digest::MD5' => '0',
'Encode' => '2.12',
'Encode::Locale' => '0',
+ 'File::Copy' => '0',
'File::Listing' => '6',
+ 'File::Temp' => '0',
+ 'Getopt::Long' => '0',
'HTML::Entities' => '0',
'HTML::HeadParser' => '0',
'HTTP::Cookies' => '6',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/xt/author/pod-spell.t
new/libwww-perl-6.61/xt/author/pod-spell.t
--- old/libwww-perl-6.60/xt/author/pod-spell.t 2021-12-17 23:30:07.000000000
+0100
+++ new/libwww-perl-6.61/xt/author/pod-spell.t 2022-01-21 22:41:22.000000000
+0100
@@ -79,6 +79,7 @@
Finch
Fowler
Frank
+Fresh
Froehlich
Galeev
Galen
@@ -105,6 +106,7 @@
Harald
Hay
Hedlund
+Hewus
Hoblitt
Hoesel
Horsfall
@@ -307,6 +309,7 @@
amir
amire80
andreas
+andrew
anirvan
asjo
at
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/libwww-perl-6.60/xt/release/changes_has_content.t
new/libwww-perl-6.61/xt/release/changes_has_content.t
--- old/libwww-perl-6.60/xt/release/changes_has_content.t 2021-12-17
23:30:07.000000000 +0100
+++ new/libwww-perl-6.61/xt/release/changes_has_content.t 2022-01-21
22:41:22.000000000 +0100
@@ -8,7 +8,7 @@
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '6.60';
+my $newver = '6.61';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';
