summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2006-05-16 22:21:44 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:08:03 -0500
commit392e4b383c35ba9befd396a99f6f27608efb9862 (patch)
tree8d09ea8e3127d3cbc96c98bd8627197367c2f217 /source4/pidl/lib/Parse
parent589920ebc0a15d1a48c36506ee2bc6c12193245c (diff)
downloadsamba-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)
Diffstat (limited to 'source4/pidl/lib/Parse')
-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 .= "}";