r9463: Fix DumpFunction() (was ignoring elements)

[samba.git] / source4 / pidl / lib / Parse / Pidl / Dump.pm

diff --git a/source4/pidl/lib/Parse/Pidl/Dump.pm b/source4/pidl/lib/Parse/Pidl/Dump.pm
index bca599262aa4161634946f49f981322e10bdbd3d..7f426c1c0bd8552086e42d90d30600e2d6adb81f 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Dump.pm
+++ b/source4/pidl/lib/Parse/Pidl/Dump.pm
@@ -208,9 +208,9 @@ sub DumpFunction($)
 
     $res .= DumpType($function->{RETURN_TYPE});
     $res .= " $function->{NAME}(\n";
-    for my $d (@{$function->{DATA}}) {
-       $first || ($res .= ",\n"); $first = 0;
-       $res .= DumpElement($d);
+    for my $d (@{$function->{ELEMENTS}}) {
+               unless ($first) { $res .= ",\n"; } $first = 0;
+               $res .= DumpElement($d);
     }
     $res .= "\n);\n\n";