import SOAP-WSDL 2.00_25 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_25
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz

lib/SOAP/WSDL/Transport/HTTP.pm

@@ -20,9 +20,10 @@ sub send_receive {
         @parameters{qw(envelope action endpoint encoding content_type)};
 
     $encoding = defined($encoding)
-        ? 'utf8'
-        : lc($encoding);
+        ? lc($encoding)
+        : 'utf8';
 
+    $content_type = 'text/xml' if not defined($content_type);
     # what's this all about?
     # unfortunately combination of LWP and Perl 5.6.1 and later has bug
     # in sending multibyte characters. LWP uses length() to calculate
@@ -87,9 +88,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 391 $
+ $Rev: 399 $
  $LastChangedBy: kutterma $
- $Id: HTTP.pm 391 2007-11-17 21:56:13Z kutterma $
+ $Id: HTTP.pm 399 2007-11-19 19:20:52Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
  
 =cut

lib/SOAP/WSDL/Transport/Loopback.pm

@@ -1,10 +1,10 @@
 package SOAP::WSDL::Transport::Loopback;
 use strict;
 use warnings;
-use Class::Std::Storable;
+use Class::Std::Fast::Storable constructor => 'basic';
 use SOAP::WSDL::Factory::Transport;
 
-our $VERSION = '2.00_17';
+our $VERSION=q{2.00_25};
 
 SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
 SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );
@@ -14,15 +14,6 @@ my %status_of       :ATTR(:name<status>         :default<()>);
 my %message_of      :ATTR(:name<message>        :default<()>);
 my %is_success_of   :ATTR(:name<is_success>     :default<()>);
 
-{
-    no warnings qw(redefine);
-
-    sub new {
-        my $class = shift;
-        return bless \my ($o), $class;
-    }
-}
-
 # create methods normally inherited from SOAP::Client
 SUBFACTORY: {
     no strict qw(refs);
@@ -36,6 +27,9 @@ sub send_receive {
     return $parameters{envelope};
 }
 
+Class::Std::initialize();
+
+
 1;
 
 =head1 NAME

lib/SOAP/WSDL/Transport/Test.pm

@@ -1,10 +1,10 @@
 package SOAP::WSDL::Transport::Test;
 use strict;
 use warnings;
-use Class::Std::Storable;
+use Class::Std::Fast::Storable;
 use SOAP::WSDL::Factory::Transport;
 
-our $VERSION = '2.00_14';
+our $VERSION=q{2.00_25};
 
 SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
 SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );