From d75a287f2c5fc37cde07006bec7d027453d9827b Mon Sep 17 00:00:00 2001
From: DGA45 <59612603+DGA45@users.noreply.github.com>
Date: Fri, 30 Oct 2020 14:46:13 +0100
Subject: Fix issue #7547

---
 src/perlmodgen.cpp | 2 ++
 1 file changed, 2 insertions(+)

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())
   {
-- 
cgit v0.12