#7 patch for void-parametrized methods

open
nobody
None
5
2005-02-16
2005-02-16
Leif Johansson
No

--- Lite.pm.orig 2005-02-16 12:31:07.235359176
+0100
+++ Lite.pm 2005-02-16 12:31:36.183958320
+0100
@@ -2854,6 +2854,7 @@
}
$self->{'_stub'} .= " parameters => [\n";
foreach (@{$services->{$service}{parameters}}) {
+ next unless $_; ## void dammit
$self->{'_stub'} .= " SOAP::Data->new(name =>
'".$_->name."', type => '".$_->type."', attr=> {";
$self->{'_stub'} .= do { my %attr = %{$_->attr};
join(', ', map {"'$_' =>
'$attr{$_}'"}

Discussion