From 5e83b577c9d509b49f0bb8b056a1f96ba0d29f20 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Mon, 30 May 2005 11:25:26 +0000
Subject: r7102: fix subcontext(0)

metze
(This used to be commit 81c878b7b2e0cb5f4c042fab4d27953c3ef1e9c9)
---
 source4/build/pidl/ndr.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'source4')

diff --git a/source4/build/pidl/ndr.pm b/source4/build/pidl/ndr.pm
index 5fafab3cd0..febf292c8a 100644
--- a/source4/build/pidl/ndr.pm
+++ b/source4/build/pidl/ndr.pm
@@ -132,7 +132,8 @@ sub GetElementLevelTable($)
 		}
 	}
 
-	if (my $hdr_size = util::has_property($e, "subcontext")) {
+	if (defined(util::has_property($e, "subcontext"))) {
+		my $hdr_size = util::has_property($e, "subcontext");
 		my $subsize = util::has_property($e, "subcontext_size");
 		if (not defined($subsize)) { 
 			$subsize = -1; 
@@ -178,7 +179,7 @@ sub can_contain_deferred
 
 	return 1 if ($e->{POINTERS});
 	return 0 if (typelist::is_scalar($e->{TYPE}));
-	return 0 if (util::has_property($e, "subcontext"));
+	return 0 if (defined(util::has_property($e, "subcontext")));
 	return 1 unless (typelist::hasType($e->{TYPE})); # assume the worst
 
 	my $type = typelist::getType($e->{TYPE});
-- 
cgit