r985: Add stub function for dumping enums to prevent perl warnings in eparser.

(This used to be commit 12c7d3a464fea87c3289f2914ee9696a17ce5a81)

diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index c186999b2102de86dd8777cb4ae6e8d35a2e82a4..e74ffe6203db425095bdf5df3ac93c0abe7d9e65 100644 (file)
--- 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";
     }