summaryrefslogtreecommitdiff
path: root/pidl/lib/Parse/Pidl
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2010-09-21 01:40:56 +0200
committerStefan Metzmacher <metze@samba.org>2010-09-28 23:06:40 +0200
commita0fa1dd6fccf21e567abb46574ef4e85b886a8ab (patch)
tree42541e21076dd9f44fcc636d5d766943ffecfe92 /pidl/lib/Parse/Pidl
parent46774388dcb7e6534927ae99adf912c911f25689 (diff)
downloadsamba-a0fa1dd6fccf21e567abb46574ef4e85b886a8ab.tar.gz
samba-a0fa1dd6fccf21e567abb46574ef4e85b886a8ab.tar.bz2
samba-a0fa1dd6fccf21e567abb46574ef4e85b886a8ab.zip
pidl/Typelist: let typeIs() do TYPEDEF dereference in the HASH case
metze
Diffstat (limited to 'pidl/lib/Parse/Pidl')
-rw-r--r--pidl/lib/Parse/Pidl/Typelist.pm1
1 files changed, 1 insertions, 0 deletions
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;
}