diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-07-10 00:23:51 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:19:28 -0500 |
| commit | d0c347188246ae6d36e56457cb96c002f430da23 (patch) | |
| tree | ec359f0e653410a8cfec85660484b7db4b044ab5 /source4/build/pidl/Parse/Pidl/ODL.pm | |
| parent | 2a08b290134eacc803389b20e604792a7e74eac4 (diff) | |
| download | samba-d0c347188246ae6d36e56457cb96c002f430da23.tar.gz samba-d0c347188246ae6d36e56457cb96c002f430da23.tar.bz2 samba-d0c347188246ae6d36e56457cb96c002f430da23.zip | |
r8270: Export some symbols, making the code more readable.
(This used to be commit d64bffa17ea1c46d917e362d51741148b85fb97f)
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"; |