import SOAP-WSDL 1.24 from CPAN

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

Build.PL

@@ -14,6 +14,8 @@ Module::Build->new(
     'SOAP::Lite'    => 0,
     'XML::XPath'    => 0,
     'Time::HiRes'   => 0,
+    'File::Spec'    => 0,
+    'File::Basename' => 0,
     'Cwd'           => 0,
   },
 

MANIFEST

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

lib/SOAP/WSDL.pm

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