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

@@ -2,6 +2,9 @@
 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,14 @@
+* 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
+
+* v1.24 2007/09/22 - bugfix
+- fixes issue reported by David Bussenschutt: wsdlinit always uses new SOAP::Schema instance.
+
 * v1.23 2007/06/05 - bugfixes and optimizations
 - fixes #27426: missing prereq XML::XPath
 - fixed build_requires

MANIFEST

@@ -2,6 +2,7 @@ Build.PL
 CHANGES
 HACKING
 lib/SOAP/WSDL.pm
+Makefile.PL
 MANIFEST			This list of files
 META.yml
 README

META.yml

@@ -1,6 +1,6 @@
 ---
 name: SOAP-WSDL
-version: 1.24
+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.24
+    version: 1.27
 generated_by: Module::Build version 0.2808
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

Makefile.PL

@@ -0,0 +1,31 @@
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
+    
+    unless (eval "use Module::Build::Compat 0.02; 1" ) {
+      print "This module requires Module::Build to install itself.\n";
+      
+      require ExtUtils::MakeMaker;
+      my $yn = ExtUtils::MakeMaker::prompt
+	('  Install Module::Build now from CPAN?', 'y');
+      
+      unless ($yn =~ /^y/i) {
+	die " *** Cannot install without Module::Build.  Exiting ...\n";
+      }
+      
+      require Cwd;
+      require File::Spec;
+      require CPAN;
+      
+      # Save this 'cause CPAN will chdir all over the place.
+      my $cwd = Cwd::cwd();
+      
+      CPAN::Shell->install('Module::Build::Compat');
+      CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
+	or die "Couldn't install Module::Build, giving up.\n";
+      
+      chdir $cwd or die "Cannot chdir() back to $cwd: $!";
+    }
+    eval "use Module::Build::Compat 0.02; 1" or die $@;
+    
+    Module::Build::Compat->run_build_pl(args => \@ARGV);
+    require Module::Build;
+    Module::Build::Compat->write_makefile(build_class => 'Module::Build');

lib/SOAP/WSDL.pm

@@ -11,7 +11,7 @@ use warnings;
 
 @ISA = qw(SOAP::Lite);
 
-$VERSION = "1.24";
+$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: 20 $
+ $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';