| Subject: | KeepAlive fails to function |
| Date: | Mon, 10 Mar 2008 18:34:25 -0500 |
| To: | <bug-SOAP-Lite [...] rt.cpan.org> |
| From: | "John Wilkinson" <johnkw [...] univaud.com> |
The following 2 changes are required, at a minimum...
--- lib/SOAP/Transport/HTTP.pm 2008-02-18 18:10:30.000000000 -0500
+++ lib/SOAP/Transport/HTTP.pm 2008-03-10 18:31:35.000000000 -0500
@@ -10,6 +10,7 @@
package SOAP::Transport::HTTP;
+no warnings qw(redefine);
use strict;
use vars qw($VERSION);
$VERSION = '0.70_04';
@@ -95,7 +96,7 @@
? push(@methods, shift() => shift)
: push(@params, shift)
}
- my $self = $class->SUPER::new(@params);
+ my $self = $class->SUPER::new(@params, 'keep_alive' => 1);
die "SOAP::Transport::HTTP::Client must inherit from LWP::UserAgent, or one of its subclasses"
if !$self->isa("LWP::UserAgent");