r12572: No longer parse coclasses as interfaces
authorJelmer Vernooij <jelmer@samba.org>
Thu, 29 Dec 2005 16:03:03 +0000 (16:03 +0000)
committerGerald (Jerry) Carter <jerry@samba.org>
Wed, 10 Oct 2007 18:48:52 +0000 (13:48 -0500)
(This used to be commit f75f757b621a46ea531c27ac682623829a4fdea7)

source4/pidl/lib/Parse/Pidl/NDR.pm

index 0dd1ab4dd25e0e0d487878c8870ff1a93434a09d..179d2ecb1214c3a0e7528357a436fea21b1eae06 100644 (file)
@@ -642,7 +642,9 @@ sub Parse($)
        
        my @ndr = ();
 
-       push(@ndr, ParseInterface($_)) foreach (@{$idl});
+       foreach (@{$idl}) {
+               ($_->{TYPE} eq "INTERFACE") && push(@ndr, ParseInterface($_));
+       }
 
        return \@ndr;
 }