summaryrefslogtreecommitdiffstats
path: root/src/perlmodgen.cpp
diff options
context:
space:
mode:
authordimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7>2005-03-28 13:38:53 (GMT)
committerdimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7>2005-03-28 13:38:53 (GMT)
commitc8be4837b6a2a96cc3e57aa941645b9dc017e8b2 (patch)
tree8e755f934e036b4b48c96948a075bf607fadc0cf /src/perlmodgen.cpp
parent2fcc16df64d2af93fc0bb01617f8531116118e8d (diff)
downloadDoxygen-c8be4837b6a2a96cc3e57aa941645b9dc017e8b2.zip
Doxygen-c8be4837b6a2a96cc3e57aa941645b9dc017e8b2.tar.gz
Doxygen-c8be4837b6a2a96cc3e57aa941645b9dc017e8b2.tar.bz2
Release-1.4.2
Diffstat (limited to 'src/perlmodgen.cpp')
-rw-r--r--src/perlmodgen.cpp17
1 files changed, 14 insertions, 3 deletions
diff --git a/src/perlmodgen.cpp b/src/perlmodgen.cpp
index 902b0b1..e501428 100644
--- a/src/perlmodgen.cpp
+++ b/src/perlmodgen.cpp
@@ -1165,10 +1165,21 @@ void PerlModDocVisitor::visitPre(DocParamList *pl)
leaveText();
m_output.openHash()
.openList("parameters");
- QStrListIterator li(pl->parameters());
- const char *s;
- for (li.toFirst();(s=li.current());++li)
+ //QStrListIterator li(pl->parameters());
+ //const char *s;
+ QListIterator<DocNode> li(pl->parameters());
+ DocNode *param;
+ for (li.toFirst();(param=li.current());++li)
{
+ QCString s;
+ if (param->kind()==DocNode::Kind_Word)
+ {
+ s = ((DocWord*)param)->word();
+ }
+ else if (param->kind()==DocNode::Kind_LinkedWord)
+ {
+ s = ((DocLinkedWord*)param)->word();
+ }
m_output.openHash()
.addFieldQuotedString("name", s)
.closeHash();