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 eddf7e417c..fadb77f15d 100644 --- a/source4/build/pidl/Parse/Pidl/ODL.pm +++ b/source4/build/pidl/Parse/Pidl/ODL.pm @@ -4,6 +4,7 @@ package Parse::Pidl::ODL; +use Parse::Pidl::Util qw(has_property); use strict; ##################################################################### @@ -59,14 +60,14 @@ sub ODL2IDL($) # Add [in] ORPCTHIS *this, [out] ORPCTHAT *that # and replace interfacepointers with MInterfacePointer # for 'object' interfaces - if (Parse::Pidl::Util::has_property($x, "object")) { + if (has_property($x, "object")) { foreach my $e (@{$x->{DATA}}) { ($e->{TYPE} eq "FUNCTION") && FunctionAddObjArgs($e); ReplaceInterfacePointers($e); } # Object interfaces use ORPC my @depends = (); - if(Parse::Pidl::Util::has_property($x, "depends")) { + if(has_property($x, "depends")) { @depends = split /,/, $x->{PROPERTIES}->{depends}; } push @depends, "orpc"; |