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',
@@ -14,6 +17,8 @@ Module::Build->new(
     'SOAP::Lite'    => 0,
     'XML::XPath'    => 0,
     'Time::HiRes'   => 0,
+    'File::Spec'    => 0,
+    'File::Basename' => 0,
     'Cwd'           => 0,
   },
 

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
@@ -9,6 +10,7 @@ t/1_performance.t
 t/2_helloworld.NET.t
 t/3_various.t
 t/4_auto_set_port.t
+t/5_same_transport.t
 t/97_pod.t
 t/98_pod_coverage.t
 t/acceptance/helloworld.asmx.xml

META.yml

@@ -1,19 +1,19 @@
----
-name: SOAP-WSDL
-version: 1.23
-author:
-abstract: WSDL support for SOAP::Lite
-license: artistic
-requires:
-  SOAP::Lite: 0
-  XML::XPath: 0
-generated_by: Module::Build version 0.2808
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
-provides:
-  SOAP::WSDL:
-    file: lib/SOAP/WSDL.pm
-    version: 1.23
-resources:
-  license: http://opensource.org/licenses/artistic-license.php
+---
+name: SOAP-WSDL
+version: 1.27
+author: []
+abstract: WSDL support for SOAP::Lite
+license: artistic
+resources:
+  license: http://opensource.org/licenses/artistic-license.php
+requires:
+  SOAP::Lite: 0
+  XML::XPath: 0
+provides:
+  SOAP::WSDL:
+    file: lib/SOAP/WSDL.pm
+    version: 1.27
+generated_by: Module::Build version 0.2808
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.2.html
+  version: 1.2

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.23";
+$VERSION = "1.27";
 
 # SOAP::Lite has changed the name for speciying a schema in 0.6?
 # method before: schema
@@ -59,9 +59,9 @@ sub wsdlinit
 	} ## end if ( $self->{ _WSDL }->...
 	unless ( $xpath )
 	{
-		$xpath =
-		  XML::XPath->new(
-			xml => SOAP::Schema->new( $SCHEMA_URL => $self->wsdl() )->access );
+	    no strict qw(refs);
+		$xpath = XML::XPath->new(
+			xml => $self->schema->$SCHEMA_URL( $self->wsdl() )->access );
 	} ## end unless ( $xpath )
 
 	( $xpath )
@@ -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 = '/'
@@ -1567,7 +1567,7 @@ Replace whitespace by '@' in E-Mail addresses.
 =head1 SVN information
 
  $LastChangedBy: kutterma $
- $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/branches/1.21/lib/SOAP/WSDL.pm $
- $Rev: 20 $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/branches/1.21/lib/SOAP/WSDL.pm $
+ $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';

t/5_same_transport.t

@@ -0,0 +1,19 @@
+# Addresses issue reported by David Bussenschutt
+use Test::More tests => 1;
+use lib '../lib';
+use SOAP::Lite;
+use SOAP::WSDL;
+use File::Spec;
+use File::Basename qw(dirname);
+
+my $path = File::Spec->rel2abs( dirname __FILE__);
+
+my $soap = SOAP::WSDL->new(
+    wsdl => "file://$path/acceptance/helloworld.asmx.xml"
+);
+my $transport = $soap->schema()->useragent()->protocols_forbidden(['file']);
+
+# If it dies with 500 Access to 'file'..., wsdlinit uses the same UA...
+eval { $soap->wsdlinit()};
+ok index( $@, q{500 Access to 'file}) > 0;
+