diff options
author | Andrew Tridgell <tridge@samba.org> | 2003-11-09 07:22:48 +0000 |
---|---|---|
committer | Andrew Tridgell <tridge@samba.org> | 2003-11-09 07:22:48 +0000 |
commit | b7a6971ce10fb3934d907947562ab5032cb9dae9 (patch) | |
tree | 1d86444b15d1df665bb79f3e293b59183edad689 /source4/build/pidl/util.pm | |
parent | 363754a8654abc526bc44c36e2cd29c9eefb4cd2 (diff) | |
download | samba-b7a6971ce10fb3934d907947562ab5032cb9dae9.tar.gz samba-b7a6971ce10fb3934d907947562ab5032cb9dae9.tar.bz2 samba-b7a6971ce10fb3934d907947562ab5032cb9dae9.zip |
- handle void functions
- bettenicer handling of PROPERTIES
- handle size_is() on an out variable that refers to an in variable
(This used to be commit 33d9b75783651ccb02f895bc9e0b0d0d59f67b1d)
Diffstat (limited to 'source4/build/pidl/util.pm')
-rw-r--r-- | source4/build/pidl/util.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 14716186d6..a724052e2f 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -147,9 +147,11 @@ sub LoadStructure($) # see if a pidl property list contains a give property sub has_property($$) { - my($props) = shift; + my($e) = shift; my($p) = shift; - + + my($props) = $e->{PROPERTIES}; + foreach my $d (@{$props}) { if (ref($d) ne "HASH") { if ($d eq $p) { |