diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2006-05-16 22:21:44 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:08:03 -0500 |
| commit | 392e4b383c35ba9befd396a99f6f27608efb9862 (patch) | |
| tree | 8d09ea8e3127d3cbc96c98bd8627197367c2f217 | |
| parent | 589920ebc0a15d1a48c36506ee2bc6c12193245c (diff) | |
| download | samba-392e4b383c35ba9befd396a99f6f27608efb9862.tar.gz samba-392e4b383c35ba9befd396a99f6f27608efb9862.tar.bz2 samba-392e4b383c35ba9befd396a99f6f27608efb9862.zip | |
r15650: Fix perl warning when generating IDL for elements with no properties
(This used to be commit 038bbbcda50d8284c56dbdc3a70214ba6202595e)
| -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 .= "}"; |