Change history for libwww-perl
+6.40 2019-10-24 12:55:45Z
+ - Let Digest authentication act on nonce expiry (GH#313) (Frank Maas)
+ - Make file arg for mirror mandatory #304 (GH#326) (Julien Fiegehenn)
+ - Doc fix: fields starting with ":" have to be quoted (GH#324) (Slaven
+ Rezić)
+ - Fix documentation for removing all handlers (GH#319) (leedo)
+ - Ensure proper version of Dist::Zilla::Plugin::MakeMaker::Awesome
+ - Add TravisCI testing for Perl v5.30
+ - Clean up .perltidyrc
+
6.39 2019-05-06 14:18:39Z
- Document current best practices (GH#314) (Olaf Alders)
- Document order in which handlers fire (GH#315) (Olaf Alders)
"IPC::Open3" : "0",
"Pod::Coverage::TrustPod" : "0",
"Test::EOL" : "0",
+ "Test::LeakTrace" : "0.16",
"Test::MinimumVersion" : "0",
"Test::Mojibake" : "0",
"Test::More" : "0.94",
"provides" : {
"LWP" : {
"file" : "lib/LWP.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Authen::Basic" : {
"file" : "lib/LWP/Authen/Basic.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Authen::Digest" : {
"file" : "lib/LWP/Authen/Digest.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Authen::Ntlm" : {
"file" : "lib/LWP/Authen/Ntlm.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::ConnCache" : {
"file" : "lib/LWP/ConnCache.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Debug" : {
"file" : "lib/LWP/Debug.pm",
- "version" : "6.39",
+ "version" : "6.40",
"x_deprecated" : 1
},
"LWP::Debug::TraceHTTP" : {
"file" : "lib/LWP/Debug/TraceHTTP.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::DebugFile" : {
"file" : "lib/LWP/DebugFile.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::MemberMixin" : {
"file" : "lib/LWP/MemberMixin.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol" : {
"file" : "lib/LWP/Protocol.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::cpan" : {
"file" : "lib/LWP/Protocol/cpan.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::data" : {
"file" : "lib/LWP/Protocol/data.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::file" : {
"file" : "lib/LWP/Protocol/file.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::ftp" : {
"file" : "lib/LWP/Protocol/ftp.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::gopher" : {
"file" : "lib/LWP/Protocol/gopher.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::http" : {
"file" : "lib/LWP/Protocol/http.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::loopback" : {
"file" : "lib/LWP/Protocol/loopback.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::mailto" : {
"file" : "lib/LWP/Protocol/mailto.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::nntp" : {
"file" : "lib/LWP/Protocol/nntp.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Protocol::nogo" : {
"file" : "lib/LWP/Protocol/nogo.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::RobotUA" : {
"file" : "lib/LWP/RobotUA.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::Simple" : {
"file" : "lib/LWP/Simple.pm",
- "version" : "6.39"
+ "version" : "6.40"
},
"LWP::UserAgent" : {
"file" : "lib/LWP/UserAgent.pm",
- "version" : "6.39"
+ "version" : "6.40"
}
},
"release_status" : "stable",
"x_IRC" : "irc://irc.perl.org/#lwp",
"x_MailingList" : "mailto:libwww@perl.org"
},
- "version" : "6.39",
+ "version" : "6.40",
"x_Dist_Zilla" : {
"perl" : {
- "version" : "5.026001"
+ "version" : "5.030000"
},
"plugins" : [
{
"meta_noindex" : 1
},
"Dist::Zilla::Role::ModuleMetadata" : {
- "Module::Metadata" : "1.000033",
- "version" : "0.004"
+ "Module::Metadata" : "1.000036",
+ "version" : "0.006"
}
},
"name" : "MetaProvides::Package",
"class" : "Dist::Zilla::Plugin::Git::Contributors",
"config" : {
"Dist::Zilla::Plugin::Git::Contributors" : {
- "git_version" : "2.21.0",
+ "git_version" : "2.23.0",
"include_authors" : 0,
"include_releaser" : 1,
"order_by" : "name",
"class" : "Dist::Zilla::Plugin::InstallGuide",
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
- "Module::Metadata" : "1.000033",
- "version" : "0.004"
+ "Module::Metadata" : "1.000036",
+ "version" : "0.006"
}
},
"name" : "InstallGuide",
"class" : "Dist::Zilla::Plugin::DynamicPrereqs",
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
- "Module::Metadata" : "1.000033",
- "version" : "0.004"
+ "Module::Metadata" : "1.000036",
+ "version" : "0.006"
}
},
"name" : "DynamicPrereqs",
- "version" : "0.034"
+ "version" : "0.035"
},
{
"class" : "Dist::Zilla::Plugin::MakeMaker::Awesome",
}
},
"name" : "MakeMaker::Awesome",
- "version" : "0.47"
+ "version" : "0.48"
},
{
"class" : "Dist::Zilla::Plugin::MojibakeTests",
},
{
"class" : "Dist::Zilla::Plugin::Test::MinimumVersion",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::MinimumVersion" : {
+ "max_target_perl" : null
+ }
+ },
"name" : "Test::MinimumVersion",
- "version" : "2.000008"
+ "version" : "2.000010"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.21.0",
+ "git_version" : "2.23.0",
"repo_root" : "."
}
},
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.21.0",
+ "git_version" : "2.23.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "v6.39",
+ "tag" : "v6.40",
"tag_format" : "v%V",
"tag_message" : "v%V"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.21.0",
+ "git_version" : "2.23.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.21.0",
+ "git_version" : "2.23.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
"remotes_must_exist" : 1
},
"Dist::Zilla::Role::Git::Repo" : {
- "git_version" : "2.21.0",
+ "git_version" : "2.23.0",
"repo_root" : "."
}
},
"Joe Atzberger <ohiocore@gmail.com>",
"john9art <john9art@yahoo.com>",
"John Wittkoski <jwittkoski@gmail.com>",
+ "Julien Fiegehenn <simbabque@cpan.org>",
"Karen Etheridge <ether@cpan.org>",
"Katarina Durechova <katarina.durechova@nic.cz>",
+ "leedo <leedo@users.noreply.github.com>",
"Mark Stosberg <mark@stosberg.com>",
"Martin H. Sluka <martin@sluka.de>",
"Matthew Horsfall <wolfsage@gmail.com>",
"Sean M. Burke <sburke@cpan.org>",
"Sergey Romanov <sromanov-dev@yandex.ru>",
"Shoichi Kaji <skaji@cpan.org>",
- "simbabque <simbabque@cpan.org>",
"Slaven Rezic <slaven@rezic.de>",
"Spiros Denaxas <s.denaxas@gmail.com>",
"Steffen Ullrich <Steffen_Ullrich@genua.de>",
"Yury Zavarin <yury.zavarin@gmail.com>",
"Zefram <zefram@fysh.org>"
],
- "x_generated_by_perl" : "v5.26.1",
- "x_serialization_backend" : "Cpanel::JSON::XS version 4.04"
+ "x_generated_by_perl" : "v5.30.0",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 4.14"
}
provides:
LWP:
file: lib/LWP.pm
- version: '6.39'
+ version: '6.40'
LWP::Authen::Basic:
file: lib/LWP/Authen/Basic.pm
- version: '6.39'
+ version: '6.40'
LWP::Authen::Digest:
file: lib/LWP/Authen/Digest.pm
- version: '6.39'
+ version: '6.40'
LWP::Authen::Ntlm:
file: lib/LWP/Authen/Ntlm.pm
- version: '6.39'
+ version: '6.40'
LWP::ConnCache:
file: lib/LWP/ConnCache.pm
- version: '6.39'
+ version: '6.40'
LWP::Debug:
file: lib/LWP/Debug.pm
- version: '6.39'
+ version: '6.40'
x_deprecated: 1
LWP::Debug::TraceHTTP:
file: lib/LWP/Debug/TraceHTTP.pm
- version: '6.39'
+ version: '6.40'
LWP::DebugFile:
file: lib/LWP/DebugFile.pm
- version: '6.39'
+ version: '6.40'
LWP::MemberMixin:
file: lib/LWP/MemberMixin.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol:
file: lib/LWP/Protocol.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::cpan:
file: lib/LWP/Protocol/cpan.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::data:
file: lib/LWP/Protocol/data.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::file:
file: lib/LWP/Protocol/file.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::ftp:
file: lib/LWP/Protocol/ftp.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::gopher:
file: lib/LWP/Protocol/gopher.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::http:
file: lib/LWP/Protocol/http.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::loopback:
file: lib/LWP/Protocol/loopback.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::mailto:
file: lib/LWP/Protocol/mailto.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::nntp:
file: lib/LWP/Protocol/nntp.pm
- version: '6.39'
+ version: '6.40'
LWP::Protocol::nogo:
file: lib/LWP/Protocol/nogo.pm
- version: '6.39'
+ version: '6.40'
LWP::RobotUA:
file: lib/LWP/RobotUA.pm
- version: '6.39'
+ version: '6.40'
LWP::Simple:
file: lib/LWP/Simple.pm
- version: '6.39'
+ version: '6.40'
LWP::UserAgent:
file: lib/LWP/UserAgent.pm
- version: '6.39'
+ version: '6.40'
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.39'
+version: '6.40'
x_Dist_Zilla:
perl:
- version: '5.026001'
+ version: '5.030000'
plugins:
-
class: Dist::Zilla::Plugin::Git::GatherDir
inherit_version: '1'
meta_noindex: '1'
Dist::Zilla::Role::ModuleMetadata:
- Module::Metadata: '1.000033'
- version: '0.004'
+ Module::Metadata: '1.000036'
+ version: '0.006'
name: MetaProvides::Package
version: '2.004003'
-
class: Dist::Zilla::Plugin::Git::Contributors
config:
Dist::Zilla::Plugin::Git::Contributors:
- git_version: 2.21.0
+ git_version: 2.23.0
include_authors: 0
include_releaser: 1
order_by: name
class: Dist::Zilla::Plugin::InstallGuide
config:
Dist::Zilla::Role::ModuleMetadata:
- Module::Metadata: '1.000033'
- version: '0.004'
+ Module::Metadata: '1.000036'
+ version: '0.006'
name: InstallGuide
version: '1.200013'
-
class: Dist::Zilla::Plugin::DynamicPrereqs
config:
Dist::Zilla::Role::ModuleMetadata:
- Module::Metadata: '1.000033'
- version: '0.004'
+ Module::Metadata: '1.000036'
+ version: '0.006'
name: DynamicPrereqs
- version: '0.034'
+ version: '0.035'
-
class: Dist::Zilla::Plugin::MakeMaker::Awesome
config:
default_jobs: 1
version: '6.012'
name: MakeMaker::Awesome
- version: '0.47'
+ version: '0.48'
-
class: Dist::Zilla::Plugin::MojibakeTests
name: MojibakeTests
version: '0.006'
-
class: Dist::Zilla::Plugin::Test::MinimumVersion
+ config:
+ Dist::Zilla::Plugin::Test::MinimumVersion:
+ max_target_perl: ~
name: Test::MinimumVersion
- version: '2.000008'
+ version: '2.000010'
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: PodSyntaxTests
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.21.0
+ git_version: 2.23.0
repo_root: .
name: Git::Check
version: '2.046'
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.21.0
+ git_version: 2.23.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
branch: ~
changelog: Changes
signed: 0
- tag: v6.39
+ tag: v6.40
tag_format: v%V
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
- git_version: 2.21.0
+ git_version: 2.23.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
- (?^:^lib/.*\.pm$)
changelog: Changes
Dist::Zilla::Role::Git::Repo:
- git_version: 2.21.0
+ git_version: 2.23.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
- origin
remotes_must_exist: 1
Dist::Zilla::Role::Git::Repo:
- git_version: 2.21.0
+ git_version: 2.23.0
repo_root: .
name: Git::Push
version: '2.046'
- 'Joe Atzberger <ohiocore@gmail.com>'
- 'john9art <john9art@yahoo.com>'
- 'John Wittkoski <jwittkoski@gmail.com>'
+ - 'Julien Fiegehenn <simbabque@cpan.org>'
- 'Karen Etheridge <ether@cpan.org>'
- 'Katarina Durechova <katarina.durechova@nic.cz>'
+ - 'leedo <leedo@users.noreply.github.com>'
- 'Mark Stosberg <mark@stosberg.com>'
- 'Martin H. Sluka <martin@sluka.de>'
- 'Matthew Horsfall <wolfsage@gmail.com>'
- 'Sean M. Burke <sburke@cpan.org>'
- 'Sergey Romanov <sromanov-dev@yandex.ru>'
- 'Shoichi Kaji <skaji@cpan.org>'
- - 'simbabque <simbabque@cpan.org>'
- 'Slaven Rezic <slaven@rezic.de>'
- 'Spiros Denaxas <s.denaxas@gmail.com>'
- 'Steffen Ullrich <Steffen_Ullrich@genua.de>'
- 'Yuri Karaban <tech@askold.net>'
- 'Yury Zavarin <yury.zavarin@gmail.com>'
- 'Zefram <zefram@fysh.org>'
-x_generated_by_perl: v5.26.1
-x_serialization_backend: 'YAML::Tiny version 1.70'
+x_generated_by_perl: v5.30.0
+x_serialization_backend: 'YAML::Tiny version 1.73'
# This Makefile.PL for libwww-perl was generated by
-# Dist::Zilla::Plugin::MakeMaker::Awesome 0.47.
+# Dist::Zilla::Plugin::MakeMaker::Awesome 0.48.
# Don't edit it but the dist.ini and plugins used to construct it.
use strict;
"Test::Needs" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "6.39",
+ "VERSION" => "6.40",
"test" => {
"TESTS" => "t/*.t t/base/*.t t/base/protocols/*.t t/leak/*.t t/local/*.t t/robot/*.t"
}
"warnings" => 0
);
-# inserted by Dist::Zilla::Plugin::DynamicPrereqs 0.034
+# inserted by Dist::Zilla::Plugin::DynamicPrereqs 0.035
requires('HTTP::Status', '6.18') if has_module('HTTP::Status', '6.17');
unless ( eval { ExtUtils::MakeMaker->VERSION('6.63_03') } ) {
WriteMakefile(%WriteMakefileArgs);
-# inserted by Dist::Zilla::Plugin::DynamicPrereqs 0.034
+# inserted by Dist::Zilla::Plugin::DynamicPrereqs 0.035
sub _add_prereq {
my ($mm_key, $module, $version_or_range) = @_;
$version_or_range ||= 0;
on 'develop' => sub {
requires 'Authen::NTLM' => '1.02';
+ requires 'Test::EOL' => '2.00',
+ requires 'Test::LeakTrace' => '0.16',
};
-body = requires('HTTP::Status', '6.18') if has_module('HTTP::Status', '6.17');
[MakeMaker::Awesome]
+:version = 0.27
delimiter = |
header = |use Getopt::Long qw(GetOptions);
header = |GetOptions(\my %opt,
package LWP;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require LWP::UserAgent; # this should load everything you need
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require MIME::Base64;
use strict;
use base 'LWP::Authen::Basic';
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require Digest::MD5;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
use Authen::NTLM "1.02";
use MIME::Base64 "2.12";
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
our $DEBUG;
sub new {
package LWP::Debug; # legacy
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require Exporter;
our @ISA = qw(Exporter);
use strict;
use base 'LWP::Protocol::http';
-our $VERSION = '6.39';
+our $VERSION = '6.40';
package # hide from PAUSE
LWP::Debug::TraceHTTP::Socket;
package LWP::DebugFile;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
# legacy stub
package LWP::MemberMixin;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
sub _elem {
my $self = shift;
use base 'LWP::MemberMixin';
-our $VERSION = '6.39';
+our $VERSION = '6.40';
use strict;
use Carp ();
use base qw(LWP::Protocol);
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require URI;
require HTTP::Status;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require HTTP::Response;
require HTTP::Status;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require LWP::MediaTypes;
require HTTP::Request;
use base qw(LWP::Protocol);
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
use Carp ();
use HTTP::Status ();
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require HTTP::Response;
require HTTP::Status;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require HTTP::Response;
require HTTP::Status;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require HTTP::Response;
use Carp;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
use base qw(LWP::Protocol);
our $SENDMAIL;
use base qw(LWP::Protocol);
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require HTTP::Response;
require HTTP::Status;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require HTTP::Response;
require HTTP::Status;
use base qw(LWP::UserAgent);
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require WWW::RobotRules;
require HTTP::Request;
use strict;
-our $VERSION = '6.39';
+our $VERSION = '6.40';
require Exporter;
use Scalar::Util qw(blessed);
use Try::Tiny qw(try catch);
-our $VERSION = '6.39';
+our $VERSION = '6.40';
sub new
{
{
my($self, $url, $file) = @_;
+ die "Local file name is missing" unless $file;
+
my $request = HTTP::Request->new('GET', $url);
# If the file exists, add a cache-related header
my $response = $self->request($request, $tmpfile);
if ( $response->header('X-Died') ) {
- die $response->header('X-Died');
+ die $response->header('X-Died');
}
- # Only fetching a fresh copy of the would be considered success.
+ # Only fetching a fresh copy of the file would be considered success.
# If the file was not modified, "304" would returned, which
# is considered by HTTP::Status to be a "redirect", /not/ "success"
if ( $response->is_success ) {
}
# The local copy is fresh enough, so just delete the temp file
else {
- unlink($tmpfile);
+ unlink($tmpfile);
}
return $response;
}
$ua->remove_handler( undef, %matchspec );
$ua->remove_handler( $phase, %matchspec );
- $ua->remove_handlers(); # REMOVE ALL HANDLERS IN ALL PHASES
+ $ua->remove_handler(); # REMOVE ALL HANDLERS IN ALL PHASES
Remove handlers that match the given C<%matchspec>. If C<$phase> is not
provided, remove handlers from all phases.
initialize headers of the request but will determine how the response
content is treated. The following special field names are recognized:
- :content_file => $filename
- :content_cb => \&callback
- :read_size_hint => $bytes
+ ':content_file' => $filename
+ ':content_cb' => \&callback
+ ':read_size_hint' => $bytes
If a $filename is provided with the C<:content_file> option, then the
response content will be saved here instead of in the response
'IPC::Open3' => '0',
'Pod::Coverage::TrustPod' => '0',
'Test::EOL' => '0',
+ 'Test::LeakTrace' => '0.16',
'Test::MinimumVersion' => '0',
'Test::Mojibake' => '0',
'Test::More' => '0.94',
use strict;
use warnings;
use Test::More;
+use Test::Fatal;
use Config;
use FindBin qw($Bin);
return plan skip_all => 'We could not talk to our daemon' unless $DAEMON;
return plan skip_all => 'No base URI' unless $base;
- plan tests => 90;
+ plan tests => 94;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/0.01 " . $ua->agent);
ok($res->is_success, 'post: is_success');
ok($res->content =~ /^Content-Type: multipart\/form-data; boundary=/m, 'post: multipart good');
}
+ { # mirror
+ ok(exception { $ua->mirror(url("/echo/foo", $base)) }, 'mirror: filename required');
+ my $copy = "lwp-base-test-$$"; # downloaded copy
+ my $res = $ua->mirror(url("/echo/foo", $base), $copy);
+ isa_ok($res, 'HTTP::Response', 'mirror: good response object');
+ ok($res->is_success, 'mirror: is_success');
+
+ ok(-s $copy, 'mirror: file exists and is not empty');
+ unlink($copy);
+ }
{ # partial
my $req = HTTP::Request->new( GET => url("/partial", $base) );
my $res = $ua->request($req);
use HTTP::Request;
use LWP::UserAgent;
-plan tests => 3;
-
{
+
package MyUA;
use base 'LWP::UserAgent';
}
}
-my $ua = MyUA->new(keep_alive => 1);
+SKIP: {
+ skip 'LIVE_JIGSAW_TESTS not enabled', 3 if $ENV{NO_JIGSAW};
+
+ my $ua = MyUA->new(keep_alive => 1);
-my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Digest/");
-my $res = $ua->request($req);
-isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
+ my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Digest/");
+ my $res = $ua->request($req);
+
+ isa_ok($res, 'HTTP::Response', 'request: Got a proper response');
+
+ like($res->content, qr/Your browser made it!/, 'Proper response content');
+ is($res->header("Client-Response-Num"), 5, 'Client-Response-Num is 5');
+}
-like($res->content, qr/Your browser made it!/, 'Proper response content');
-is($res->header("Client-Response-Num"), 5, 'Client-Response-Num is 5');
+done_testing();
-#!perl
+use strict;
+use warnings;
use Test::More;
-
use Test::MinimumVersion;
all_minimum_version_from_metayml_ok();
Fabian
Father
Fesler
+Fiegehenn
Finch
Froehlich
Gavin
Joerg
John
Jr
+Julien
KONISHI
Kaji
Kaminsky
jwittkoski
ka
katarina
+leedo
lib
loopback
lwp
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '6.39';
+my $newver = '6.40';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';