r756: Handle default element in union.

(This used to be commit 1ece224c9a25731a8c392cf378968273c0072ecf)

diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index d8958635369b9604cb0c5ca08ba12fedde24f65c..cf5ec37bdaf08de4d8464fdf088228939a9429dd 100644 (file)
--- a/source4/build/pidl/dump.pm
+++ b/source4/build/pidl/dump.pm
@@ -85,9 +85,13 @@ sub DumpUnionElement($)
     my($element) = shift;
     my($res);
 
-    $res .= "[case($element->{CASE})] ";
-    $res .= DumpElement($element->{DATA});
-    $res .= ";\n";
+    if ($element->{CASE} eq "default") {
+       $res .= "[default] ;\n";
+    } else {
+       $res .= "[case($element->{CASE})] ";
+       $res .= DumpElement($element->{DATA});
+       $res .= ";\n";
+    }
 
     return $res;
 }