pidl: Fix handling of typedefs of typedefs.

diff --git a/pidl/lib/Parse/Pidl/Typelist.pm b/pidl/lib/Parse/Pidl/Typelist.pm
index 3b3920a92e229b1f3406143cd890c47e6ab63fa0..238ad834a4b93a4c407d5854dd353e2c7744e71e 100644 (file)
--- a/pidl/lib/Parse/Pidl/Typelist.pm
+++ b/pidl/lib/Parse/Pidl/Typelist.pm
@@ -128,14 +128,15 @@ sub getType($)
 sub typeIs($$)
 {
        my ($t,$tt) = @_;
-       
+
        if (ref($t) eq "HASH") {
                return 1 if ($t->{TYPE} eq "TYPEDEF" and $t->{DATA}->{TYPE} eq $tt);
                return 1 if ($t->{TYPE} eq $tt);
                return 0;
        }
-       return 1 if (hasType($t) and getType($t)->{TYPE} eq "TYPEDEF" and 
-                        getType($t)->{DATA}->{TYPE} eq $tt);
+       if (hasType($t) and getType($t)->{TYPE} eq "TYPEDEF") {
+               return typeIs(getType($t)->{DATA}, $tt);
+        }
        return 0;
 }