diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2008-09-16 07:22:53 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2008-09-16 07:22:53 +0200 |
| commit | 5062d4c16a67f0b41ea18db39af755cdcca1d57b (patch) | |
| tree | 7c3b89570b9836f8677f25fbf98ca0fc276e3c2d /source4/pidl | |
| parent | db872cfe3713315a5163bf0db8e9644019c9c664 (diff) | |
| download | samba-5062d4c16a67f0b41ea18db39af755cdcca1d57b.tar.gz samba-5062d4c16a67f0b41ea18db39af755cdcca1d57b.tar.bz2 samba-5062d4c16a67f0b41ea18db39af755cdcca1d57b.zip | |
Fix more WMI compilation issues.
Diffstat (limited to 'source4/pidl')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/ODL.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/ODL.pm b/source4/pidl/lib/Parse/Pidl/ODL.pm index 5c2cc8bfbf..ad8c76f622 100644 --- a/source4/pidl/lib/Parse/Pidl/ODL.pm +++ b/source4/pidl/lib/Parse/Pidl/ODL.pm @@ -37,7 +37,7 @@ sub FunctionAddObjArgs($) sub ReplaceInterfacePointers($) { - my $e = shift; + my ($e) = @_; foreach my $x (@{$e->{ELEMENTS}}) { next unless (hasType($x->{TYPE})); next unless getType($x->{TYPE})->{DATA}->{TYPE} eq "INTERFACE"; |