[Catalyst-commits] r13314 - in Catalyst-Controller-SOAP/1.0/trunk: . lib/Catalyst/Controller

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2010-05-24 23:12:15 +0100 (Mon, 24 May 2010)
New Revision: 13314

Modified:
   Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
Log:
[C-C-SOAP] compatibilizes with newer XML::Compile::SOAP which appends "Response" and expects "Response" in rpc literal return (there is no spec for that, but it seems to be a common practice)

Modified: Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL	2010-05-24 22:02:19 UTC (rev 13313)
+++ Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL	2010-05-24 22:12:15 UTC (rev 13314)
@@ -6,7 +6,7 @@
     NAME              => 'Catalyst::Controller::SOAP',
     VERSION_FROM      => 'lib/Catalyst/Controller/SOAP.pm', # finds $VERSION
     PREREQ_PM         => { Catalyst::Runtime => 5.7011, XML::LibXML => 0, MRO::Compat => 0,
-                           XML::Compile::SOAP => 2.03, Moose => 0.90,
+                           XML::Compile::SOAP => 2.14, Moose => 0.90,
                           },
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
       (ABSTRACT_FROM  => 'lib/Catalyst/Controller/SOAP.pm', # retrieve abstract from module

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2010-05-24 22:02:19 UTC (rev 13313)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2010-05-24 22:12:15 UTC (rev 13314)
@@ -13,7 +13,7 @@
     use constant NS_SOAP_ENV => "http://schemas.xmlsoap.org/soap/envelope/";
     use constant NS_WSDLSOAP => "http://schemas.xmlsoap.org/wsdl/soap/";
 
-    our $VERSION = '1.21';
+    our $VERSION = '1.22';
 
     __PACKAGE__->mk_accessors qw(wsdl wsdlobj decoders encoders
          ports wsdlservice xml_compile soap_action_prefix rpc_endpoint_paths);
@@ -258,7 +258,7 @@
                 if ($operation->style eq 'rpc') {
                   $self->encoders->{$name} = sub {
                     my ($doc, $data) = @_;
-                    my $element = $doc->createElementNS($out_namespace,$name);
+                    my $element = $doc->createElementNS($out_namespace,$name.'Response');
                     $element->appendChild($_) for map {
                       $_->{compiled_writer}->($doc, $data->{$_->{name}})
                     } @{$output_parts};