perl/modules/W3C/LinkChecker/bin checklink,4.166,4.167

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv24230

Modified Files:
	checklink 
Log Message:
Increase default LWP HTTP line length to 8k; the 4k default in LWP <= 5.832
is not enough for example to accommodate 4kB cookies (RFC 2985) (#6678).


Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.166
retrieving revision 4.167
diff -u -d -r4.166 -r4.167
--- checklink	1 Oct 2009 16:06:00 -0000	4.166
+++ checklink	5 Oct 2009 15:07:54 -0000	4.167
@@ -52,6 +52,14 @@
   @W3C::UserAgent::ISA = 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 = shift;