diff options
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); } |