From 4812a5d3fd394cf1fdbba1eb01bb0d0b3b171628 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Thu, 6 Oct 2005 07:04:36 +0000
Subject: r10760: remove only one star from the pointers, and not from the
 stars that come from the array nesting

this fixes a compiler warning and but in the eventlog.h,
where the idl uses nstring strings[num_strings]

metze
(This used to be commit c4a252bd4678ef991705aaaf91c03c697f2f568e)
---
 source4/pidl/lib/Parse/Pidl/Samba/Header.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'source4/pidl/lib/Parse/Pidl')

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}}) {
-- 
cgit