| Subject: | Bug in XML-Compile-SOAP-HTTPDaemon Line 170, 185 |
Hello,
Think i Found a bug in XML::Compile::SOAP::HTTPDaemon
accessing the example server produced error
connection ended with force; Can't locate object method "header" via
package "XML::Compile::SOAP::HTTPDaemon" at
/usr/local/share/perl/5.8.8/XML/Compile/SOAP/HTTPDaemon.pm line 170.
Line 170:
--{ use bytes; $self->header('Content-Length' => length $s); }
++{ use bytes; $resp->header('Content-Length' => length $s); }
The same seems to apply to Line 185:
sub soapFault($$$$)
{ my ($self, $version, $data, $rc, $abstract) = @_;
my $doc = $self->SUPER::soapFault($version, $data);
my $resp = HTTP::Response->new($rc, $abstract);
my $s = $resp->content($doc->toString);
!!! { use bytes; $self->header('Content-Length' => length $s); }
$self->headersForXML($resp);
$resp;
}
Or is something other wrong with my environment?
Ciao,
Frank