diff options
Diffstat (limited to 'source4/build/pidl/com_header.pm')
| -rw-r--r-- | source4/build/pidl/com_header.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/source4/build/pidl/com_header.pm b/source4/build/pidl/com_header.pm index 1e178eed85..3300d84092 100644 --- a/source4/build/pidl/com_header.pm +++ b/source4/build/pidl/com_header.pm @@ -17,7 +17,7 @@ sub GetArgumentProtoList($) $res .= ", " . typelist::mapType($a->{TYPE}) . " "; my $l = $a->{POINTERS}; - $l-- if ($a->{TYPE} eq "string"); + $l-- if (typelist::scalar_is_reference($a->{TYPE})); foreach my $i (1..$l) { $res .= "*"; } |