diff options
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/ODL.pm')
| -rw-r--r-- | source4/build/pidl/Parse/Pidl/ODL.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/source4/build/pidl/Parse/Pidl/ODL.pm b/source4/build/pidl/Parse/Pidl/ODL.pm index fadb77f15d..9bf94b78b4 100644 --- a/source4/build/pidl/Parse/Pidl/ODL.pm +++ b/source4/build/pidl/Parse/Pidl/ODL.pm @@ -5,6 +5,7 @@ package Parse::Pidl::ODL; use Parse::Pidl::Util qw(has_property); +use Parse::Pidl::Typelist qw(hasType getType); use strict; ##################################################################### @@ -44,8 +45,8 @@ sub ReplaceInterfacePointers($) my $e = shift; foreach my $x (@{$e->{ELEMENTS}}) { - next unless (Parse::Pidl::Typelist::hasType($x->{TYPE})); - next unless Parse::Pidl::Typelist::getType($x->{TYPE})->{DATA}->{TYPE} eq "INTERFACE"; + next unless (hasType($x->{TYPE})); + next unless getType($x->{TYPE})->{DATA}->{TYPE} eq "INTERFACE"; $x->{TYPE} = "MInterfacePointer"; } |