From 525d2fba27af4295a470b2df9a32f31a4346d731 Mon Sep 17 00:00:00 2001
From: Tim Potter <tpot@samba.org>
Date: Thu, 3 Jun 2004 00:53:09 +0000
Subject: r985: Add stub function for dumping enums to prevent perl warnings in
 eparser. (This used to be commit 12c7d3a464fea87c3289f2914ee9696a17ce5a81)

---
 source4/build/pidl/dump.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index c186999b21..e74ffe6203 100644
--- a/source4/build/pidl/dump.pm
+++ b/source4/build/pidl/dump.pm
@@ -78,6 +78,19 @@ sub DumpStruct($)
 }
 
 
+#####################################################################
+# dump a struct
+sub DumpEnum($)
+{
+    my($enum) = shift;
+    my($res);
+
+    $res .= "enum";
+    
+    return $res;
+}
+
+
 #####################################################################
 # dump a union element
 sub DumpUnionElement($)
@@ -126,6 +139,8 @@ sub DumpType($)
 	    ($res .= DumpStruct($data));
 	($data->{TYPE} eq "UNION") &&
 	    ($res .= DumpUnion($data));
+	($data->{TYPE} eq "ENUM") &&
+	    ($res .= DumpEnum($data));
     } else {
 	$res .= "$data";
     }
-- 
cgit