From fd15fc58e7b4dbe0d4eda81f979c8de97e9ac7ee Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Thu, 20 Nov 2003 00:57:00 +0000
Subject:  * added support for empty case elements (including default cases)

 * changed to midl syntax using [case(x)] instead of case(x)
(This used to be commit 6ecdb25e137c25e6bf9a7037a4eb602ae1afc514)
---
 source4/build/pidl/header.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm
index 60605fb619..0822ca0e06 100644
--- a/source4/build/pidl/header.pm
+++ b/source4/build/pidl/header.pm
@@ -90,7 +90,9 @@ sub HeaderUnionElement($)
 {
     my($element) = shift;
     $res .= "/* [case($element->{CASE})] */ ";
-    HeaderElement($element->{DATA});
+    if ($element->{TYPE} eq "UNION_ELEMENT") {
+	    HeaderElement($element->{DATA});
+    }
 }
 
 #####################################################################
-- 
cgit