r7102: fix subcontext(0)

metze
(This used to be commit 81c878b7b2e0cb5f4c042fab4d27953c3ef1e9c9)

diff --git a/source4/build/pidl/ndr.pm b/source4/build/pidl/ndr.pm
index 5fafab3cd0098478b5a32e66051fe1c580b88b16..febf292c8a3ec35716a7041059f23c5ab5967f47 100644 (file)
--- 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});