From b9bc12619d87b416555d31898be0fe22f7c58cf0 Mon Sep 17 00:00:00 2001
From: Tim Potter <tpot@samba.org>
Date: Sat, 14 Aug 2004 01:26:11 +0000
Subject: r1815: Update parser for recent changes to perl parser. (This used to
 be commit 1d0bde1c77f511a3de5815c2d0e5319c74daf18a)

---
 source4/build/pidl/eparser.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/source4/build/pidl/eparser.pm b/source4/build/pidl/eparser.pm
index 1223c0ca77..4030b3d731 100644
--- a/source4/build/pidl/eparser.pm
+++ b/source4/build/pidl/eparser.pm
@@ -986,9 +986,8 @@ sub Parse($$)
 
 	foreach my $x (@{$idl}) {
 
-	    ($x->{TYPE} eq "MODULEHEADER") && ModuleHeader($x);
-		
 	    if ($x->{TYPE} eq "INTERFACE") { 
+		ModuleHeader($x);
 		$module = $x->{NAME};
 		BuildNeeded($x);
 	    }
-- 
cgit