svn commit: samba r7102 - in branches/SAMBA_4_0/source/build/pidl: .

[metze at samba.org]

Author: metze
Date: 2005-05-30 11:25:26 +0000 (Mon, 30 May 2005)
New Revision: 7102

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=7102

Log:
fix subcontext(0)

metze
Modified:
   branches/SAMBA_4_0/source/build/pidl/ndr.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/ndr.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-05-30 09:41:01 UTC (rev 7101)
+++ branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-05-30 11:25:26 UTC (rev 7102)
@@ -132,7 +132,8 @@
 		}
 	}
 
-	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 @@
 
 	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});