diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-10-08 20:19:35 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:39:34 -0500 |
| commit | 36517c801cb7116df635dea8a129730c5bc014ea (patch) | |
| tree | 1421a83ddee63d071f1b649dfb30b59ff212fbf5 /source4/pidl/lib/Parse/Pidl/Samba3/Header.pm | |
| parent | fa0fbb46b8268ebaec4f8f2c7b18e3ceebb58b53 (diff) | |
| download | samba-36517c801cb7116df635dea8a129730c5bc014ea.tar.gz samba-36517c801cb7116df635dea8a129730c5bc014ea.tar.bz2 samba-36517c801cb7116df635dea8a129730c5bc014ea.zip | |
r10842: Fix some issues with [out] unions that have a discriminator that is only
[in]
(This used to be commit 3a4086d6142fa73b3adb2d66b1bfc9cd2585f31d)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Samba3/Header.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Samba3/Header.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm index 25102e511a..d14bac2df7 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm @@ -103,9 +103,13 @@ sub ParseUnion($$$) { my ($if,$u,$n) = @_; - my $extra = {}; - - $extra->{switch_value} = $u->{SWITCH_TYPE}; + my $extra = { + switch_value => $u->{SWITCH_TYPE} + }; + + if (not defined($extra->{switch_value})) { + $extra->{switch_value} = "uint32"; + } foreach my $e (@{$u->{ELEMENTS}}) { foreach my $l (@{$e->{LEVELS}}) { |