summaryrefslogtreecommitdiff
path: root/source4/build/pidl/com_header.pm
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2005-05-30 00:19:58 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:17:14 -0500
commit89a17e60a14783e8560d3babc8a9a328adc3c94c (patch)
tree7aaa93cd78bb26f76618eab8cf79a04e1fc28633 /source4/build/pidl/com_header.pm
parent4f1a5b716972bc2af916a528399c9dc0c2f18c35 (diff)
downloadsamba-89a17e60a14783e8560d3babc8a9a328adc3c94c.tar.gz
samba-89a17e60a14783e8560d3babc8a9a328adc3c94c.tar.bz2
samba-89a17e60a14783e8560d3babc8a9a328adc3c94c.zip
r7084: - readd the work from rev 6516,6517,6572
- use a single list of scalars - let "string" not be so special anymore - fix support for "string_array" metze (This used to be commit e1fa7ae6c8420dc582578e084b9c0d641bcfbd73)
Diffstat (limited to 'source4/build/pidl/com_header.pm')
-rw-r--r--source4/build/pidl/com_header.pm2
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 .= "*";
}