diff options
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Dump.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Dump.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Dump.pm b/source4/pidl/lib/Parse/Pidl/Dump.pm index 3a1cec1b59..88f18de322 100644 --- a/source4/pidl/lib/Parse/Pidl/Dump.pm +++ b/source4/pidl/lib/Parse/Pidl/Dump.pm @@ -36,7 +36,7 @@ my($res); sub DumpProperties($) { my($props) = shift; - my($res); + my $res = ""; foreach my $d ($props) { foreach my $k (keys %{$d}) { @@ -63,7 +63,7 @@ sub DumpProperties($) sub DumpElement($) { my($element) = shift; - my($res); + my $res = ""; (defined $element->{PROPERTIES}) && ($res .= DumpProperties($element->{PROPERTIES})); @@ -89,10 +89,9 @@ sub DumpStruct($) $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 .= "}"; |