From 9fd14c02c21c437868debdf18e3b397b0f5350c0 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Thu, 29 Dec 2005 16:03:03 +0000
Subject: r12572: No longer parse coclasses as interfaces

---
 source/pidl/lib/Parse/Pidl/NDR.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'source')

diff --git a/source/pidl/lib/Parse/Pidl/NDR.pm b/source/pidl/lib/Parse/Pidl/NDR.pm
index 0dd1ab4dd25..179d2ecb121 100644
--- a/source/pidl/lib/Parse/Pidl/NDR.pm
+++ b/source/pidl/lib/Parse/Pidl/NDR.pm
@@ -642,7 +642,9 @@ sub Parse($)
 	
 	my @ndr = ();
 
-	push(@ndr, ParseInterface($_)) foreach (@{$idl});
+	foreach (@{$idl}) {
+		($_->{TYPE} eq "INTERFACE") && push(@ndr, ParseInterface($_));
+	}
 
 	return \@ndr;
 }
-- 
cgit