diff options
| author | Stefan Metzmacher <metze@samba.org> | 2010-09-21 01:40:56 +0200 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2010-09-28 23:06:40 +0200 |
| commit | a0fa1dd6fccf21e567abb46574ef4e85b886a8ab (patch) | |
| tree | 42541e21076dd9f44fcc636d5d766943ffecfe92 | |
| parent | 46774388dcb7e6534927ae99adf912c911f25689 (diff) | |
| download | samba-a0fa1dd6fccf21e567abb46574ef4e85b886a8ab.tar.gz samba-a0fa1dd6fccf21e567abb46574ef4e85b886a8ab.tar.bz2 samba-a0fa1dd6fccf21e567abb46574ef4e85b886a8ab.zip | |
pidl/Typelist: let typeIs() do TYPEDEF dereference in the HASH case
metze
| -rw-r--r-- | pidl/lib/Parse/Pidl/Typelist.pm | 1 |
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; } |