import SOAP-WSDL 1.25 from CPAN

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

Build.PL

@@ -2,6 +2,8 @@
 use Module::Build;
 
 Module::Build->new(
+	create_makefile_pl => 'passthrough',
+	dist_name          => 'SOAP-WSDL',
 	dist_abstract => 'WSDL support for SOAP::Lite',
 	module_name   => 'SOAP::WSDL',
 	license       => 'artistic',
@@ -14,6 +16,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,9 @@
+* 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
+version: 1.25
-author:
+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.25
 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

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.25";
 
 # 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 =
+	    no strict qw(refs);
-		  XML::XPath->new(
+		$xpath = XML::XPath->new(
-			xml => SOAP::Schema->new( $SCHEMA_URL => $self->wsdl() )->access );
+			xml => $self->schema->$SCHEMA_URL( $self->wsdl() )->access );
 	} ## end unless ( $xpath )
 
 	( $xpath )
@@ -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 $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/branches/1.21/lib/SOAP/WSDL.pm $
- $Rev: 20 $
+ $Rev: 274 $
 
 =cut

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;
+