Package: libsoap-lite-perl
Version: 0.69-2
Severity: normal
hi,
weve got some proprietary SOAP Application im trying to access with SOAP::Lite,
but it barfs out the following way:
Can't call method "name" without a package or object reference at
/usr/share/perl5/SOAP/Lite.pm line 3005.
looking at line 3005 the next unless $_ statement seems to be commented out,
for whatever reason. Attached patch make the thing work again. Not sure if
its commented out by accident or the WSDL File of this app is broken
beyond.
bye,
- michael
--- Lite.pm 2007-08-03 11:29:10.000000000 +0200
+++ /usr/share/perl5/SOAP/Lite.pm 2007-08-03 11:29:18.000000000 +0200
@@ -3001,7 +3001,7 @@
}
$self->{'_stub'} .= " parameters => [\n";
foreach (@{$services->{$service}{parameters}}) {
-# next unless $_;
+ next unless $_;
$self->{'_stub'} .= " SOAP::Data->new(name => '".$_->name."', type => '".$_->type."', attr => {";
$self->{'_stub'} .= do { my %attr = %{$_->attr};
join(', ', map {"'$_' => '$attr{$_}'"}
