diff options
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Samba3/Client.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Samba3/Client.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm b/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm index ee1ab09324..ceeb81c3d7 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm @@ -84,11 +84,12 @@ sub ParseFunction($$) pidl "/* Return variables */"; foreach my $e (@{$fn->{ELEMENTS}}) { next unless (grep(/out/, @{$e->{DIRECTION}})); - + if ($e->{LEVELS}[0]->{TYPE} ne "POINTER") { warning($e->{ORIGINAL}, "First element not a pointer for [out] argument"); next; } + CopyLevel($e, $e->{LEVELS}[1], $e->{NAME}, "r.$e->{NAME}"); } |