From 67638baabbec4b01af2aaa13be51f30215b1d04c Mon Sep 17 00:00:00 2001
From: Tim Potter <tpot@samba.org>
Date: Mon, 17 May 2004 11:39:33 +0000
Subject: r756: Handle default element in union. (This used to be commit
 1ece224c9a25731a8c392cf378968273c0072ecf)

---
 source4/build/pidl/dump.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'source4/build/pidl/dump.pm')

diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index d895863536..cf5ec37bda 100644
--- 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;
 }
-- 
cgit