Change history for libwww-perl
+6.28 2017-11-06
+ - Remove last use of Geopt::Std (Sergey Remanov) (GH #267)
+ - Include unmatched connect error in status string (Patrik Lundin) (GH #269)
+ - Fix insecure open FILEHANDLE,EXPR (Takumi Akiyama) (GH #270)
+
6.27 2017-09-21
- Switch to Getopt::Long in lwp-download (GH #262)
- Fix lwp-request -C (GH #261)
"provides" : {
"LWP" : {
"file" : "lib/LWP.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Authen::Basic" : {
"file" : "lib/LWP/Authen/Basic.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Authen::Digest" : {
"file" : "lib/LWP/Authen/Digest.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Authen::Ntlm" : {
"file" : "lib/LWP/Authen/Ntlm.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::ConnCache" : {
"file" : "lib/LWP/ConnCache.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Debug" : {
"file" : "lib/LWP/Debug.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Debug::TraceHTTP" : {
"file" : "lib/LWP/Debug/TraceHTTP.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::DebugFile" : {
"file" : "lib/LWP/DebugFile.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::MemberMixin" : {
"file" : "lib/LWP/MemberMixin.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol" : {
"file" : "lib/LWP/Protocol.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::MyFTP" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::cpan" : {
"file" : "lib/LWP/Protocol/cpan.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::data" : {
"file" : "lib/LWP/Protocol/data.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::file" : {
"file" : "lib/LWP/Protocol/file.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::ftp" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::gopher" : {
"file" : "lib/LWP/Protocol/gopher.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::http" : {
"file" : "lib/LWP/Protocol/http.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::loopback" : {
"file" : "lib/LWP/Protocol/loopback.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::mailto" : {
"file" : "lib/LWP/Protocol/mailto.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::nntp" : {
"file" : "lib/LWP/Protocol/nntp.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Protocol::nogo" : {
"file" : "lib/LWP/Protocol/nogo.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::RobotUA" : {
"file" : "lib/LWP/RobotUA.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::Simple" : {
"file" : "lib/LWP/Simple.pm",
- "version" : "6.27"
+ "version" : "6.28"
},
"LWP::UserAgent" : {
"file" : "lib/LWP/UserAgent.pm",
- "version" : "6.27"
+ "version" : "6.28"
}
},
"release_status" : "stable",
"x_IRC" : "irc://irc.perl.org/#lwp",
"x_MailingList" : "mailto:libwww@perl.org"
},
- "version" : "6.27",
+ "version" : "6.28",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.024000"
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "v6.27",
+ "tag" : "v6.28",
"tag_format" : "v%v",
"tag_message" : "v%v"
},
"Nigel Gregoire <nigelgregoire@gmail.com>",
"Olaf Alders <olaf@wundersolutions.com>",
"Ondrej Hanak <ondrej.hanak@ubs.com>",
+ "Patrik Lundin <patrik.lundin@su.se>",
"Peter Rabbitson <ribasushi@cpan.org>",
"phrstbrn <phrstbrn@gmail.com>",
"Piotr Roszatycki <piotr.roszatycki@gmail.com>",
"ruff <ruff@ukrpost.net>",
"sasao <sasao@yugen.org>",
"Sean M. Burke <sburke@cpan.org>",
+ "Sergey Romanov <sromanov-dev@yandex.ru>",
"Slaven Rezic <slaven@rezic.de>",
"Spiros Denaxas <s.denaxas@gmail.com>",
"Steffen Ullrich <Steffen_Ullrich@genua.de>",
"Steve Hay <SteveHay@planit.com>",
+ "Takumi Akiyama <t.akiym@gmail.com>",
"Theodore Robert Campbell Jr <trcjr@stupidfoot.com>",
"Tim Couzins <tim.couzins@sophos.com>",
"Todd Lipcon <todd@amiestreet.com>",
provides:
LWP:
file: lib/LWP.pm
- version: '6.27'
+ version: '6.28'
LWP::Authen::Basic:
file: lib/LWP/Authen/Basic.pm
- version: '6.27'
+ version: '6.28'
LWP::Authen::Digest:
file: lib/LWP/Authen/Digest.pm
- version: '6.27'
+ version: '6.28'
LWP::Authen::Ntlm:
file: lib/LWP/Authen/Ntlm.pm
- version: '6.27'
+ version: '6.28'
LWP::ConnCache:
file: lib/LWP/ConnCache.pm
- version: '6.27'
+ version: '6.28'
LWP::Debug:
file: lib/LWP/Debug.pm
- version: '6.27'
+ version: '6.28'
LWP::Debug::TraceHTTP:
file: lib/LWP/Debug/TraceHTTP.pm
- version: '6.27'
+ version: '6.28'
LWP::DebugFile:
file: lib/LWP/DebugFile.pm
- version: '6.27'
+ version: '6.28'
LWP::MemberMixin:
file: lib/LWP/MemberMixin.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol:
file: lib/LWP/Protocol.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::MyFTP:
file: lib/LWP/Protocol/ftp.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::cpan:
file: lib/LWP/Protocol/cpan.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::data:
file: lib/LWP/Protocol/data.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::file:
file: lib/LWP/Protocol/file.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::ftp:
file: lib/LWP/Protocol/ftp.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::gopher:
file: lib/LWP/Protocol/gopher.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::http:
file: lib/LWP/Protocol/http.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::loopback:
file: lib/LWP/Protocol/loopback.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::mailto:
file: lib/LWP/Protocol/mailto.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::nntp:
file: lib/LWP/Protocol/nntp.pm
- version: '6.27'
+ version: '6.28'
LWP::Protocol::nogo:
file: lib/LWP/Protocol/nogo.pm
- version: '6.27'
+ version: '6.28'
LWP::RobotUA:
file: lib/LWP/RobotUA.pm
- version: '6.27'
+ version: '6.28'
LWP::Simple:
file: lib/LWP/Simple.pm
- version: '6.27'
+ version: '6.28'
LWP::UserAgent:
file: lib/LWP/UserAgent.pm
- version: '6.27'
+ version: '6.28'
requires:
Digest::MD5: '0'
Encode: '2.12'
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.27'
+version: '6.28'
x_Dist_Zilla:
perl:
version: '5.024000'
branch: ~
changelog: Changes
signed: 0
- tag: v6.27
+ tag: v6.28
tag_format: v%v
tag_message: v%v
Dist::Zilla::Role::Git::Repo:
- 'Nigel Gregoire <nigelgregoire@gmail.com>'
- 'Olaf Alders <olaf@wundersolutions.com>'
- 'Ondrej Hanak <ondrej.hanak@ubs.com>'
+ - 'Patrik Lundin <patrik.lundin@su.se>'
- 'Peter Rabbitson <ribasushi@cpan.org>'
- 'phrstbrn <phrstbrn@gmail.com>'
- 'Piotr Roszatycki <piotr.roszatycki@gmail.com>'
- 'ruff <ruff@ukrpost.net>'
- 'sasao <sasao@yugen.org>'
- 'Sean M. Burke <sburke@cpan.org>'
+ - 'Sergey Romanov <sromanov-dev@yandex.ru>'
- 'Slaven Rezic <slaven@rezic.de>'
- 'Spiros Denaxas <s.denaxas@gmail.com>'
- 'Steffen Ullrich <Steffen_Ullrich@genua.de>'
- 'Steve Hay <SteveHay@planit.com>'
+ - 'Takumi Akiyama <t.akiym@gmail.com>'
- 'Theodore Robert Campbell Jr <trcjr@stupidfoot.com>'
- 'Tim Couzins <tim.couzins@sophos.com>'
- 'Todd Lipcon <todd@amiestreet.com>'
"Test::More" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "6.27",
+ "VERSION" => "6.28",
"test" => {
"TESTS" => "t/*.t t/base/*.t t/base/protocols/*.t t/local/*.t t/robot/*.t"
}
use strict;
use warnings;
use LWP::Simple qw(mirror is_success status_message $ua);
-use Getopt::Std;
+use Getopt::Long qw(GetOptions);
use Encode;
use Encode::Locale;
$progname =~ s/\.\w*$//; #strip extension if any
my %opts;
-unless (getopts("hvt:", \%opts)) {
+unless (GetOptions(\%opts, 'h', 'v', 't=i')) {
usage();
}
{
package RequestAgent;
-$RequestAgent::VERSION = '6.27';
+$RequestAgent::VERSION = '6.28';
use strict;
use warnings;
use base qw(LWP::UserAgent);
copyright_holder = Gisle Aas
copyright_year = 1995
-version = 6.27
+version = 6.28
; Gather stuff in
[Git::GatherDir]
package LWP::Authen::Basic;
-$LWP::Authen::Basic::VERSION = '6.27';
+$LWP::Authen::Basic::VERSION = '6.28';
use strict;
require MIME::Base64;
package LWP::Authen::Digest;
-$LWP::Authen::Digest::VERSION = '6.27';
+$LWP::Authen::Digest::VERSION = '6.28';
use strict;
use base 'LWP::Authen::Basic';
package LWP::Debug; # legacy
-$LWP::Debug::VERSION = '6.27';
+$LWP::Debug::VERSION = '6.28';
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(level trace debug conns);
package LWP::Debug::TraceHTTP;
-$LWP::Debug::TraceHTTP::VERSION = '6.27';
+$LWP::Debug::TraceHTTP::VERSION = '6.28';
# Just call:
#
# require LWP::Debug::TraceHTTP;
package LWP::DebugFile;
-$LWP::DebugFile::VERSION = '6.27';
+$LWP::DebugFile::VERSION = '6.28';
# legacy stub
1;
package LWP::MemberMixin;
-$LWP::MemberMixin::VERSION = '6.27';
+$LWP::MemberMixin::VERSION = '6.28';
sub _elem {
my $self = shift;
my $elem = shift;
package LWP::Protocol::cpan;
-$LWP::Protocol::cpan::VERSION = '6.27';
+$LWP::Protocol::cpan::VERSION = '6.28';
use strict;
use base qw(LWP::Protocol);
package LWP::Protocol::data;
-$LWP::Protocol::data::VERSION = '6.27';
+$LWP::Protocol::data::VERSION = '6.28';
# Implements access to data:-URLs as specified in RFC 2397
use strict;
package LWP::Protocol::file;
-$LWP::Protocol::file::VERSION = '6.27';
+$LWP::Protocol::file::VERSION = '6.28';
use base qw(LWP::Protocol);
use strict;
# read the file
if ($method ne "HEAD") {
- open(F, $path) or return new
+ open(my $fh, '<', $path) or return new
HTTP::Response(HTTP::Status::RC_INTERNAL_SERVER_ERROR,
"Cannot read file '$path': $!");
- binmode(F);
+ binmode($fh);
$response = $self->collect($arg, $response, sub {
my $content = "";
- my $bytes = sysread(F, $content, $size);
+ my $bytes = sysread($fh, $content, $size);
return \$content if $bytes > 0;
return \ "";
});
- close(F);
+ close($fh);
}
$response;
package LWP::Protocol::ftp;
-$LWP::Protocol::ftp::VERSION = '6.27';
+$LWP::Protocol::ftp::VERSION = '6.28';
# Implementation of the ftp protocol (RFC 959). We let the Net::FTP
# package do all the dirty work.
use base qw(LWP::Protocol);
{
package LWP::Protocol::MyFTP;
-$LWP::Protocol::MyFTP::VERSION = '6.27';
+$LWP::Protocol::MyFTP::VERSION = '6.28';
use strict;
use base qw(Net::FTP);
package LWP::Protocol::gopher;
-$LWP::Protocol::gopher::VERSION = '6.27';
+$LWP::Protocol::gopher::VERSION = '6.28';
# Implementation of the gopher protocol (RFC 1436)
#
# This code is based on 'wwwgopher.pl,v 0.10 1994/10/17 18:12:34 shelden'
package LWP::Protocol::http;
-$LWP::Protocol::http::VERSION = '6.27';
+$LWP::Protocol::http::VERSION = '6.28';
use strict;
require HTTP::Response;
$@ =~ /\b(Crypt-SSLeay can't verify hostnames)\b/
) {
$status .= " ($1)";
+ } elsif ($@) {
+ $status .= " ($@)";
}
die "$status\n\n$@";
}
package LWP::Protocol::loopback;
-$LWP::Protocol::loopback::VERSION = '6.27';
+$LWP::Protocol::loopback::VERSION = '6.28';
use strict;
require HTTP::Response;
package LWP::Protocol::mailto;
-$LWP::Protocol::mailto::VERSION = '6.27';
+$LWP::Protocol::mailto::VERSION = '6.28';
# This module implements the mailto protocol. It is just a simple
# frontend to the Unix sendmail program except on MacOS, where it uses
# Mail::Internet.
package LWP::Protocol::nntp;
-$LWP::Protocol::nntp::VERSION = '6.27';
+$LWP::Protocol::nntp::VERSION = '6.28';
# Implementation of the Network News Transfer Protocol (RFC 977)
use base qw(LWP::Protocol);
# LWP::Protocol::implementor(that_scheme, 'LWP::Protocol::nogo');
# For then on, attempts to access URLs with that scheme will generate
# a 500 error.
-$LWP::Protocol::nogo::VERSION = '6.27';
+$LWP::Protocol::nogo::VERSION = '6.28';
use strict;
require HTTP::Response;
plan tests => scalar @modules;
my %trustme = (
- 'LWP::UserAgent' => [
- qr/^(?:run_handlers|send_request|use_alarm|use_eval)$/
- ],
'LWP::Protocol' => [
qr/^(?:max_size|timeout)$/
],
'LWP::Protocol::http' => [
qr/^(?:hlist_remove|socket_class|socket_type)$/
],
- 'LWP::RobotUA' => [
- qr/^host_count$/
- ],
'LWP::Protocol::gopher' => [
qr/^(?:gopher2url|menu2html)$/
- ]
+ ],
+ 'LWP::UserAgent' => [
+ qr/^(?:run_handlers|send_request|use_alarm|use_eval)$/
+ ],
+ 'LWP::RobotUA' => [
+ qr/^host_count$/
+ ]
);
my @also_private;
Aas
Accomazzi
Adam
+Akiyama
Alders
Alex
Alexandre
Lindley
Lipcon
Lotterer
+Lundin
Lutz
MacEachern
Macdonald
Oosten
Oschwald
Panchenko
+Patrik
Peter
Peters
Pettit
Robert
RobotUA
Rolf
+Romanov
Roszatycki
Sarathy
Schilli
Schinder
Schwern
Sean
+Sergey
Shirazi
Simple
Sjogren
Subbarao
TCP
Takanori
+Takumi
Theodore
Thoennes
Thompson
Zoest
adamk
afPuUsSedvhx
+akiym
amir
amire80
andreas
ondrej
onken
oschwald
+patrik
peterm
phrstbrn
piotr
shildreth
slaven
sprout
+sromanov
talby
tech
tim
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '6.27';
+my $newver = '6.28';
my $trial_token = '-TRIAL';
SKIP: {