[Catalyst-commits] r7388 - Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-01-16 10:08:47 +0000 (Wed, 16 Jan 2008)
New Revision: 7388

Modified:
   Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
Log:
[C-M-SOAP] Small bug-fix, version increasing.

Modified: Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
===================================================================
--- Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2008-01-14 22:26:14 UTC (rev 7387)
+++ Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2008-01-16 10:08:47 UTC (rev 7388)
@@ -3,7 +3,7 @@
     use warnings;
     use XML::Compile::WSDL11;
     use base qw(Catalyst::Model);
-    our $VERSION = '0.0.3';
+    our $VERSION = '0.0.4';
     sub register_wsdl {
         my ($self, $wsdl, $target) = @_;
 
@@ -17,7 +17,7 @@
 
         if (ref $wsdl eq 'ARRAY') {
             my $main = shift @{$wsdl};
-            $wsdl_obj = XML::Compile::WSDL11->new($wsdl);
+            $wsdl_obj = XML::Compile::WSDL11->new($main);
             $wsdl_obj->addWsdl($_) for @{$wsdl};
         } else {
             $wsdl_obj = XML::Compile::WSDL11->new($wsdl);