diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Net/Riak/Role/UserAgent.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Net/Riak/Role/UserAgent.pm b/lib/Net/Riak/Role/UserAgent.pm index 4c6cb1f..ecc412f 100644 --- a/lib/Net/Riak/Role/UserAgent.pm +++ b/lib/Net/Riak/Role/UserAgent.pm @@ -11,6 +11,13 @@ has useragent => ( lazy => 1, default => sub { my $self = shift; + + # The Links header Riak returns (esp. for buckets) can get really long, + # so here increase the MaxLineLength LWP will accept (default = 8192) + my %opts = @LWP::Protocol::http::EXTRA_SOCK_OPTS; + $opts{MaxLineLength} = 65_536; + @LWP::Protocol::http::EXTRA_SOCK_OPTS = %opts; + my $ua = LWP::UserAgent->new; $ua->timeout(3); $ua; |