From a0fa1dd6fccf21e567abb46574ef4e85b886a8ab Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Tue, 21 Sep 2010 01:40:56 +0200
Subject: pidl/Typelist: let typeIs() do TYPEDEF dereference in the HASH case

metze
---
 pidl/lib/Parse/Pidl/Typelist.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'pidl')

diff --git a/pidl/lib/Parse/Pidl/Typelist.pm b/pidl/lib/Parse/Pidl/Typelist.pm
index b00f0e4bed..3b3920a92e 100644
--- 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;
 	}
-- 
cgit