r19834: Prevent some inaccurate warnings.

(This used to be commit 21efd2bdb8df8e709259d429fc3ff35eaa332d02)

diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm
index d017c455a6b484059f1d382bc288621da7631707..a478c158732a9630939233fa59ea79afff13fd80 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/NDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/NDR.pm
@@ -181,9 +181,10 @@ sub GetElementLevelTable($)
                        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++;