From a635df47da4c0f8434dc51349600edf9ef0805f1 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 28 Feb 2007 00:28:14 +0000
Subject: r21574: Fix handling of DECLARE. (This used to be commit
 6a4033464bf269176f928a5b3b7e63aad1bb1e7a)

---
 source4/pidl/lib/Parse/Pidl/NDR.pm      | 2 +-
 source4/pidl/lib/Parse/Pidl/Typelist.pm | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm
index 934aba3a02..998b19aabf 100644
--- a/source4/pidl/lib/Parse/Pidl/NDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/NDR.pm
@@ -349,7 +349,7 @@ sub align_type($)
 
 	my $dt = getType($e);
 
-	if ($dt->{TYPE} eq "TYPEDEF") {
+	if ($dt->{TYPE} eq "TYPEDEF" or $dt->{TYPE} eq "DECLARE") {
 		return align_type($dt->{DATA});
 	} elsif ($dt->{TYPE} eq "ENUM") {
 		return align_type(Parse::Pidl::Typelist::enum_type_fn($dt));
diff --git a/source4/pidl/lib/Parse/Pidl/Typelist.pm b/source4/pidl/lib/Parse/Pidl/Typelist.pm
index 72c4b18d0b..8e311554bc 100644
--- a/source4/pidl/lib/Parse/Pidl/Typelist.pm
+++ b/source4/pidl/lib/Parse/Pidl/Typelist.pm
@@ -132,6 +132,7 @@ sub hasType($)
 
 sub is_scalar($)
 {
+	sub is_scalar($);
 	my $type = shift;
 
 	return 1 if (ref($type) eq "HASH" and $type->{TYPE} eq "SCALAR");
-- 
cgit