pidl/Typelist: let typeIs() do TYPEDEF dereference in the HASH case

metze

diff --git a/pidl/lib/Parse/Pidl/Typelist.pm b/pidl/lib/Parse/Pidl/Typelist.pm
index b00f0e4bed2d4806b51771209eb777053b601eb9..3b3920a92e229b1f3406143cd890c47e6ab63fa0 100644 (file)
--- a/pidl/lib/Parse/Pidl/Typelist.pm
+++ b/pidl/lib/Parse/Pidl/Typelist.pm
@@ -130,6 +130,7 @@ 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;
        }