svn commit: samba r1815 - branches/SAMBA_4_0/source/build/pidl

[tpot at samba.org]

Author: tpot
Date: 2004-08-14 01:26:11 +0000 (Sat, 14 Aug 2004)
New Revision: 1815
WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba&path=/&rev=1815&nolog=1
Log:
Update parser for recent changes to perl parser.

Modified:
   branches/SAMBA_4_0/source/build/pidl/eparser.pm

Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/eparser.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/eparser.pm	2004-08-14 01:11:34 UTC (rev 1814)
+++ branches/SAMBA_4_0/source/build/pidl/eparser.pm	2004-08-14 01:26:11 UTC (rev 1815)
@@ -986,9 +986,8 @@
 
 	foreach my $x (@{$idl}) {
 
-	    ($x->{TYPE} eq "MODULEHEADER") && ModuleHeader($x);
-		
 	    if ($x->{TYPE} eq "INTERFACE") { 
+		ModuleHeader($x);
 		$module = $x->{NAME};
 		BuildNeeded($x);
 	    }