diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-02-16 11:09:10 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:10:44 -0500 |
| commit | a0667e11ae2c92850919a1568ca47fa83d29af6f (patch) | |
| tree | 58fea153339373c6f629a0380a00690a17d6270a /source4/build/pidl/dump.pm | |
| parent | 97dcee677e4fda03bed2ace3151e329e340ca313 (diff) | |
| download | samba-a0667e11ae2c92850919a1568ca47fa83d29af6f.tar.gz samba-a0667e11ae2c92850919a1568ca47fa83d29af6f.tar.bz2 samba-a0667e11ae2c92850919a1568ca47fa83d29af6f.zip | |
r5417: Add wrapper function for typedefs hash rather then using the "our" keyword,
move pointer parsing to seperate function.
(This used to be commit ea872b9a2b9a51ba9f6c2842303d067e9e85d11a)
Diffstat (limited to 'source4/build/pidl/dump.pm')
| -rw-r--r-- | source4/build/pidl/dump.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm index 00a57b10b4..9e896cd256 100644 --- a/source4/build/pidl/dump.pm +++ b/source4/build/pidl/dump.pm @@ -47,10 +47,8 @@ sub DumpElement($) ($res .= DumpProperties($element->{PROPERTIES})); $res .= DumpType($element->{TYPE}); $res .= " "; - if ($element->{POINTERS}) { - for (my($i)=0; $i < $element->{POINTERS}; $i++) { + for my $i (1..$element->{POINTERS}) { $res .= "*"; - } } $res .= "$element->{NAME}"; (defined $element->{ARRAY_LEN}) && ($res .= "[$element->{ARRAY_LEN}]"); |