diff options
| -rwxr-xr-x | httpd/cgi-bin/check | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 3befcfd..c46f10d 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -14,7 +14,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.708 2009-10-04 20:43:29 ville Exp $ +# $Id: check,v 1.709 2009-10-05 15:13:58 ville Exp $ # # Disable buffering on STDOUT! $| = 1; @@ -208,7 +208,7 @@ Directory not readable (permission denied): @_r # # Strings - $VERSION = q$Revision: 1.708 $; + $VERSION = q$Revision: 1.709 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # @@ -3229,6 +3229,14 @@ use Socket qw(inet_ntoa); use base qw(LWP::UserAgent); +BEGIN +{ + # The 4k default line length in LWP <= 5.832 isn't enough for example to + # accommodate 4kB cookies (RFC 2985); bump it (#6678). + require LWP::Protocol::http; + push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, MaxLineLength => 8*1024); +} + sub new { my ($proto, $CFG, $File, @rest) = @_; my $class = ref($proto) || $proto; |