diff options
author | DGA45 <59612603+DGA45@users.noreply.github.com> | 2020-10-30 13:46:13 (GMT) |
---|---|---|
committer | DGA45 <59612603+DGA45@users.noreply.github.com> | 2020-10-30 13:46:13 (GMT) |
commit | d75a287f2c5fc37cde07006bec7d027453d9827b (patch) | |
tree | a6e588bc94388ace9a42e98f09eaef57d23a7477 | |
parent | fd636709110d3242c7e25000274c45b7150a95a6 (diff) | |
download | Doxygen-d75a287f2c5fc37cde07006bec7d027453d9827b.zip Doxygen-d75a287f2c5fc37cde07006bec7d027453d9827b.tar.gz Doxygen-d75a287f2c5fc37cde07006bec7d027453d9827b.tar.bz2 |
Fix issue #7547
-rw-r--r-- | src/perlmodgen.cpp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/perlmodgen.cpp b/src/perlmodgen.cpp index eceff59..f6b5071 100644 --- a/src/perlmodgen.cpp +++ b/src/perlmodgen.cpp @@ -1835,6 +1835,8 @@ void PerlModGenerator::generatePerlModForClass(const ClassDef *cd) m_output.openHash() .addFieldQuotedString("name", cd->name()); + /* DGA: fix # #7547 Perlmod does not generate "kind" information to discriminate struct/union */ + m_output.addFieldQuotedString("kind", cd->compoundTypeString()); if (cd->baseClasses()) { |