From 1413faae582949e7d12174df7102723eea914464 Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Tue, 16 Dec 2003 04:15:51 +0000
Subject: the out substructure is not empty if there is a return from the
 function (This used to be commit d18a08a870aa9ee12ed2913775b70d1b8a09c84b)

---
 source4/build/pidl/header.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'source4/build/pidl')

diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm
index 507455d1a1..c993108f98 100644
--- a/source4/build/pidl/header.pm
+++ b/source4/build/pidl/header.pm
@@ -200,11 +200,17 @@ sub HeaderFunctionInOut_needed($$)
 {
     my($fn) = shift;
     my($prop) = shift;
+
+    if ($prop eq "out" && $fn->{RETURN_TYPE} && $fn->{RETURN_TYPE} ne "void") {
+	    return 1;
+    }
+
     foreach my $e (@{$fn->{DATA}}) {
 	    if (util::has_property($e, $prop)) {
 		    return 1;
 	    }
     }
+
     return undef;
 }
 
-- 
cgit