From 86e796643e2993ef3e3fb8b88faecf1261f01f10 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Mon, 22 Aug 2005 00:22:21 +0000
Subject: r9463: Fix DumpFunction() (was ignoring elements) Fix use of pidl for
 people that don't have it installed... Generate documentation for pidl debian
 package (This used to be commit de66450c242b943cfb226187b0ad14f380f08479)

---
 source4/pidl/lib/Parse/Pidl/Dump.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'source4/pidl/lib/Parse/Pidl')

diff --git a/source4/pidl/lib/Parse/Pidl/Dump.pm b/source4/pidl/lib/Parse/Pidl/Dump.pm
index bca599262a..7f426c1c0b 100644
--- 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";
 
-- 
cgit