svn commit: samba r19834 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl: .

[jelmer at samba.org]

Author: jelmer
Date: 2006-11-22 13:59:14 +0000 (Wed, 22 Nov 2006)
New Revision: 19834

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

Log:
Prevent some inaccurate warnings.

Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2006-11-22 12:18:16 UTC (rev 19833)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2006-11-22 13:59:14 UTC (rev 19834)
@@ -181,9 +181,10 @@
 			LEVEL => $level
 		});
 
-		nonfatal($e, "top-level pointer `$e->{NAME}' is not a \[ref\] pointer") 
+		nonfatal($e, "top-level \[out\] pointer `$e->{NAME}' is not a \[ref\] pointer") 
 			if ($i == 1 and pointer_type($e) ne "ref" and 
-				$e->{PARENT}->{TYPE} eq "FUNCTION");
+				$e->{PARENT}->{TYPE} eq "FUNCTION" and 
+				not has_property($e, "in"));
 
 		$pointer_idx++;