| From: | Yann Kerhervé <yann [...] sixapart.com> |
| Subject: | Fwd: A patch to POE::Component::Server::SOAP |
| Date: | Thu, 11 Aug 2005 19:38:43 +0200 |
| To: | bug-POE-Component-Server-SOAP [...] rt.cpan.org |
The other fix is to remove
use warnings FATAL => 'all';
But removing this annoying warning is a good idea, anyway.
Thanks !
Yann
Show quoted text
> From: Yann Kerherve <yann NO SPAM>
> Date: 3 août 2005 11:46:49 HAEC
> To: ApocalypseNO SPAM one.us
> Subject: A patch to POE::Component::Server::SOAP
>
>
> Hi,
>
> I use Version 1.08 of SOAP Component, but sometimes I noticed that
> the whole shebang just died for no apparent reason. In fact it
> comes from straight non-SOAP request... So I've patched like the
> following to fit my needs.
>
> Thanks !
>
>
> --- /usr/lib/perl5/site_perl/5.8.5/POE/Component/Server/SOAP.pm
> 2005-08-03 11:35:18.829670645 +0200
> +++ /usr/lib/perl5/site_perl/5.8.5/POE/Component/Server/
> SOAP.pm.patched 2005-08-03 11:35:47.699223308 +0200
> @@ -453,7 +453,7 @@
> }
>
> # We only handle text/xml content
> - if ( $request->header('Content-Type') !~ /^text\/xml(;.*)?
> $/ ) {
> + if ( ! $request->header('Content-Type') || $request->header
> ('Content-Type') !~ /^text\/xml(;.*)?$/ ) {
> # Create a new error and send it off!
> $_[KERNEL]->yield( 'FAULT',
> $response,
>