summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--source4/pidl/lib/Parse/Pidl/Dump.pm11
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 .= "}";