[SCM] Samba Shared Repository - branch v4-0-test updated - release-4-0-0alpha2-570-g3131847

[Stefan Metzmacher]

The branch, v4-0-test has been updated
       via  3131847cb67dadd8ee6fcbca5055927b8ba8a219 (commit)
      from  bcaba3cb725e1cbbe164132179a0849c7b546a73 (commit)

http://gitweb.samba.org/?p=samba.git;a=shortlog;h=v4-0-test


- Log -----------------------------------------------------------------
commit 3131847cb67dadd8ee6fcbca5055927b8ba8a219
Author: Stefan Metzmacher <metze at samba.org>
Date:   Fri Jan 25 10:07:43 2008 +0100

    pidl/Samba4::Header: fix typedefs of unions and structs without elements
    
    metze

-----------------------------------------------------------------------

Summary of changes:
 source/pidl/lib/Parse/Pidl/Samba4/Header.pm |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)


Changeset truncated at 500 lines:

diff --git a/source/pidl/lib/Parse/Pidl/Samba4/Header.pm b/source/pidl/lib/Parse/Pidl/Samba4/Header.pm
index 14f4723..2e77ff0 100644
--- a/source/pidl/lib/Parse/Pidl/Samba4/Header.pm
+++ b/source/pidl/lib/Parse/Pidl/Samba4/Header.pm
@@ -86,6 +86,7 @@ sub HeaderStruct($$;$)
 {
 	my($struct,$name,$tail) = @_;
 	pidl "struct $name";
+	pidl $tail if defined($tail) and not defined($struct->{ELEMENTS});
 	return if (not defined($struct->{ELEMENTS}));
 	pidl " {\n";
 	$tab_depth++;
@@ -178,6 +179,7 @@ sub HeaderUnion($$;$)
 	my %done = ();
 
 	pidl "union $name";
+	pidl $tail if defined($tail) and not defined($union->{ELEMENTS});
 	return if (not defined($union->{ELEMENTS}));
 	pidl " {\n";
 	$tab_depth++;


-- 
Samba Shared Repository