From 32fe933cc767c7d1555a1873d6b2fcc2cbb5e1e5 Mon Sep 17 00:00:00 2001
From: Stefan Kost <ensonic@users.sf.net>
Date: Mon, 12 Jul 2010 23:42:49 +0300
Subject: [PATCH] mkdb: fix perl warning from accesing undefined hash entries

We don't have type declarations for everything. Accessing the hash will cause
a warning in that case. Check if it is defined.
---
 gtkdoc-mkdb.in | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gtkdoc-mkdb.in b/gtkdoc-mkdb.in
index 2230a8f..14087b4 100755
--- a/gtkdoc-mkdb.in
+++ b/gtkdoc-mkdb.in
@@ -931,7 +931,10 @@ sub OutputIndex {
         my $symbol_desc = "";
         my $symbol_section = "";
         my $symbol_section_id = "";
-        my $symbol_type = lc($DeclarationTypes{$symbol});
+        my $symbol_type = "";
+        if (defined($DeclarationTypes{$symbol})) {
+          $symbol_type = lc($DeclarationTypes{$symbol});
+        }
         if ($symbol_type eq "") {
             #print "trying symbol $symbol\n";
             if ($symbol =~ m/(.*)::(.*)/) {
-- 
2.11.4.GIT