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/Samba/COM/Header.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/Samba/COM/Header.pm')
| -rw-r--r-- | source4/build/pidl/Parse/Pidl/Samba/COM/Header.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Samba/COM/Header.pm b/source4/build/pidl/Parse/Pidl/Samba/COM/Header.pm index 4f5e0d68ad..7b6c4db212 100644 --- a/source4/build/pidl/Parse/Pidl/Samba/COM/Header.pm +++ b/source4/build/pidl/Parse/Pidl/Samba/COM/Header.pm @@ -4,6 +4,7 @@ package Parse::Pidl::Samba::COM::Header; use Parse::Pidl::Typelist; +use Parse::Pidl::Util qw(has_property); use strict; @@ -109,7 +110,7 @@ sub ParseCoClass($) my $c = shift; my $res = ""; $res .= "#define CLSID_" . uc($c->{NAME}) . " $c->{PROPERTIES}->{uuid}\n"; - if (Parse::Pidl::Util::has_property($c, "progid")) { + if (has_property($c, "progid")) { $res .= "#define PROGID_" . uc($c->{NAME}) . " $c->{PROPERTIES}->{progid}\n"; } $res .= "\n"; @@ -123,7 +124,7 @@ sub Parse($) foreach my $x (@{$idl}) { - if ($x->{TYPE} eq "INTERFACE" && Parse::Pidl::Util::has_property($x, "object")) { + if ($x->{TYPE} eq "INTERFACE" && has_property($x, "object")) { $res.=ParseInterface($x); } |