diff options
| author | Andrew Tridgell <tridge@samba.org> | 2003-11-17 11:53:12 +0000 |
|---|---|---|
| committer | Andrew Tridgell <tridge@samba.org> | 2003-11-17 11:53:12 +0000 |
| commit | fb53302c8eb32603098b17bcf2fad16af66e9a60 (patch) | |
| tree | 8470e109d4afdf5ca0d9b3034cc21542eba0493c /source4/build/pidl/util.pm | |
| parent | e62c5c9a8dd1258b776d40918026a1be4b71fb72 (diff) | |
| download | samba-fb53302c8eb32603098b17bcf2fad16af66e9a60.tar.gz samba-fb53302c8eb32603098b17bcf2fad16af66e9a60.tar.bz2 samba-fb53302c8eb32603098b17bcf2fad16af66e9a60.zip | |
auto-generate functions for printing top-level function
parameters. You can choose to print just the [in] parameters, just the
[out] parameters or both
(This used to be commit 6afc3a465e3fc568636ff52975a6d339f8bc3179)
Diffstat (limited to 'source4/build/pidl/util.pm')
| -rw-r--r-- | source4/build/pidl/util.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index fcc6c54216..67f97e647e 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -150,6 +150,10 @@ sub has_property($$) my($e) = shift; my($p) = shift; + if (!defined $e->{PROPERTIES}) { + return; + } + my($props) = $e->{PROPERTIES}; foreach my $d (@{$props}) { |