diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-07-10 01:16:02 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:19:29 -0500 |
| commit | 514ce32a894585b66d7dc276d10fe6f4b525e02b (patch) | |
| tree | c8d5f194aba2ba1ca2738ca9d6d14dfbe51c2433 /source4/build/pidl/Parse/Pidl/ODL.pm | |
| parent | 76ecf81428c161a98a5621b55a64cb8515f80585 (diff) | |
| download | samba-514ce32a894585b66d7dc276d10fe6f4b525e02b.tar.gz samba-514ce32a894585b66d7dc276d10fe6f4b525e02b.tar.bz2 samba-514ce32a894585b66d7dc276d10fe6f4b525e02b.zip | |
r8274: Export some more symbols.
(This used to be commit d1f754a0a34c5938579a605b4f113100e14bac3d)
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"; } |