diff options
| author | Tim Potter <tpot@samba.org> | 2004-05-17 11:39:33 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:53:49 -0500 |
| commit | 67638baabbec4b01af2aaa13be51f30215b1d04c (patch) | |
| tree | 8d298a74852ff79b1e71b19bfe4123dcdc31f13e /source4/build/pidl/dump.pm | |
| parent | b340a61cb935e014090eed7105f8f50c3a00e71b (diff) | |
| download | samba-67638baabbec4b01af2aaa13be51f30215b1d04c.tar.gz samba-67638baabbec4b01af2aaa13be51f30215b1d04c.tar.bz2 samba-67638baabbec4b01af2aaa13be51f30215b1d04c.zip | |
r756: Handle default element in union.
(This used to be commit 1ece224c9a25731a8c392cf378968273c0072ecf)
Diffstat (limited to 'source4/build/pidl/dump.pm')
| -rw-r--r-- | source4/build/pidl/dump.pm | 10 |
1 files changed, 7 insertions, 3 deletions
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; } |