diff options
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Samba/Header.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Samba/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba/Header.pm index ed8952e746..f235a96cb8 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/Header.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/Header.pm @@ -60,13 +60,15 @@ sub HeaderElement($) HeaderType($element, $element->{TYPE}, ""); pidl " "; my $numstar = $element->{POINTERS}; + if ($numstar >= 1) { + $numstar-- if Parse::Pidl::Typelist::scalar_is_reference($element->{TYPE}); + } foreach (@{$element->{ARRAY_LEN}}) { next if is_constant($_) and not has_property($element, "charset"); $numstar++; } - $numstar-- if Parse::Pidl::Typelist::scalar_is_reference($element->{TYPE}); pidl "*" foreach (1..$numstar); pidl $element->{NAME}; foreach (@{$element->{ARRAY_LEN}}) { |