import SOAP-WSDL 1.27 from CPAN

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

Build.PL

@@ -4,6 +4,7 @@ use Module::Build;
 Module::Build->new(
 	create_makefile_pl => 'passthrough',
 	dist_name          => 'SOAP-WSDL',
+	dist_version	   => '1.27',
 	dist_abstract => 'WSDL support for SOAP::Lite',
 	module_name   => 'SOAP::WSDL',
 	license       => 'artistic',

CHANGES

@@ -1,3 +1,8 @@
+* v.1.27
+- fixed issue reported by Cominic Caffrey: SOAP::WSDL does not find XML
+elements with multiple prefixes assigned to the schema's targetNamespace
+* v1.26 2007/10/05 - bugfix
+- fixed issue reported by T Alex Beamish: tests fail when unwrapped into /tmp
 * v1.25 2007/09/24 - maintenance
 - added Makefile.PL to ease installation
 

META.yml

@@ -1,6 +1,6 @@
 ---
 name: SOAP-WSDL
-version: 1.25
+version: 1.27
 author: []
 abstract: WSDL support for SOAP::Lite
 license: artistic
@@ -12,7 +12,7 @@ requires:
 provides:
   SOAP::WSDL:
     file: lib/SOAP/WSDL.pm
-    version: 1.25
+    version: 1.27
 generated_by: Module::Build version 0.2808
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

lib/SOAP/WSDL.pm

@@ -11,7 +11,7 @@ use warnings;
 
 @ISA = qw(SOAP::Lite);
 
-$VERSION = "1.25";
+$VERSION = "1.27";
 
 # SOAP::Lite has changed the name for speciying a schema in 0.6?
 # method before: schema
@@ -874,7 +874,7 @@ sub encode
 		#which one?
 		my $elementPath = $p->{ element };
 
-		$elementPath =~ s/^$defaultNS\://;
+		$elementPath =~ s/^(:?$defaultNS)\://;
 
 		# there are two ways how schema are usually defined
 		my $path = '/'
@@ -1568,6 +1568,6 @@ Replace whitespace by '@' in E-Mail addresses.
 
  $LastChangedBy: kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/branches/1.21/lib/SOAP/WSDL.pm $
- $Rev: 274 $
+ $Rev: 490 $
 
 =cut

t/1_performance.t

@@ -21,7 +21,7 @@ my $data = {	name => 'Mein Name',
 my $dir = cwd;
 
 # chomp /t/ to allow running the script from t/ directory
-$dir=~s|/t/?||;
+$dir=~s|/t/?$||;
 
 my $t0 = [gettimeofday];
 

t/2_helloworld.NET.t

@@ -34,7 +34,7 @@ my $data = {
 
 
 my $dir= cwd;
-$dir=~s/\/t\/?//;
+$dir=~s/\/t\/?$//;
 
 my $t0 = [gettimeofday];
 ok( my $soap=SOAP::WSDL->new(wsdl => 'file:///'.$dir.'/t/acceptance/test.wsdl.xml',

t/3_various.t

@@ -18,7 +18,7 @@ my $data = {name => 'Mein Name',
 my $dir = cwd;
 
 # chomp /t/ to allow running the script from t/ directory
-$dir=~s|/t/?||;
+$dir=~s|/t/?$||;
 
 my $t0 = [gettimeofday];
 ok( my $soap=SOAP::WSDL->new(wsdl => "file://$dir/t/acceptance/helloworld.asmx.xml",

t/4_auto_set_port.t

@@ -32,7 +32,7 @@ my $data = {
 };
 
 my $dir= cwd;
-$dir=~s/\/t\/?//;
+$dir=~s/\/t\/?$//;
 
 # print $dir;
 my $url = $dir . '/t/acceptance/test.wsdl.xml';