[Catalyst-commits] r7333 - in Catalyst-Model-SOAP/1.0/trunk: lib/Catalyst/Model t/lib

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2007-12-29 01:05:35 +0000 (Sat, 29 Dec 2007)
New Revision: 7333

Modified:
   Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
   Catalyst-Model-SOAP/1.0/trunk/t/lib/MyXMLModule.pm
Log:
Fixing stupid bug, XML::Compile::WSDL11 is not XML::Compile::SOAP::WSDL11.

Modified: Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
===================================================================
--- Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2007-12-24 05:50:49 UTC (rev 7332)
+++ Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2007-12-29 01:05:35 UTC (rev 7333)
@@ -1,13 +1,13 @@
 {   package Catalyst::Model::SOAP;
     use strict;
     use warnings;
-    use XML::Compile::SOAP;
+    use XML::Compile::WSDL11;
     use base qw(Catalyst::Model);
     our $VERSION = '0.0.1';
     sub register_wsdl {
         my ($self, $wsdl, $target) = @_;
 
-        my $wsdl_obj = XML::Compile::SOAP::WSDL11->new($wsdl);
+        my $wsdl_obj = XML::Compile::WSDL11->new($wsdl);
         my $realtarget = $self.'::'.$target;
 
         no strict 'refs';

Modified: Catalyst-Model-SOAP/1.0/trunk/t/lib/MyXMLModule.pm
===================================================================
--- Catalyst-Model-SOAP/1.0/trunk/t/lib/MyXMLModule.pm	2007-12-24 05:50:49 UTC (rev 7332)
+++ Catalyst-Model-SOAP/1.0/trunk/t/lib/MyXMLModule.pm	2007-12-29 01:05:35 UTC (rev 7333)
@@ -3,7 +3,7 @@
 # can predict the answer and also avoid centering the test on
 # XML::Compile::SOAP and depending on network.
 {
-    package XML::Compile::SOAP::WSDL11;
+    package XML::Compile::WSDL11;
     use Symbol;
     sub new {
         return bless { symbol => gensym() }, MyXML::WSDL11;