Author: jelmer Date: 2006-05-16 22:21:44 +0000 (Tue, 16 May 2006) New Revision: 15650
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=15650 Log: Fix perl warning when generating IDL for elements with no properties Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm Changeset: Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm =================================================================== --- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm 2006-05-16 22:03:05 UTC (rev 15649) +++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm 2006-05-16 22:21:44 UTC (rev 15650) @@ -36,7 +36,7 @@ sub DumpProperties($) { my($props) = shift; - my($res); + my $res = ""; foreach my $d ($props) { foreach my $k (keys %{$d}) { @@ -63,7 +63,7 @@ sub DumpElement($) { my($element) = shift; - my($res); + my $res = ""; (defined $element->{PROPERTIES}) && ($res .= DumpProperties($element->{PROPERTIES})); @@ -89,10 +89,9 @@ $res .= "struct {\n"; if (defined $struct->{ELEMENTS}) { - foreach my $e (@{$struct->{ELEMENTS}}) { - $res .= "\t" . DumpElement($e); - $res .= ";\n"; - } + foreach (@{$struct->{ELEMENTS}}) { + $res .= "\t" . DumpElement($_) . ";\n"; + } } $res .= "}";