From 65c35376f94c39d2b8ecbd1bc27ea6832ec4124b Mon Sep 17 00:00:00 2001 From: wwp Date: Mon, 26 Mar 2018 14:01:26 +0200 Subject: [PATCH] Remove key and free attribute value only if they are valid, clears CID 1220202. --- src/plugins/perl/perl_plugin.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/plugins/perl/perl_plugin.c b/src/plugins/perl/perl_plugin.c index 3d68b8ac8..9c69566b8 100644 --- a/src/plugins/perl/perl_plugin.c +++ b/src/plugins/perl/perl_plugin.c @@ -430,10 +430,11 @@ static void insert_attribute_hash(gchar *attr) if((tl = g_hash_table_lookup(attribute_hash,attr)) != NULL) { gpointer origkey; gpointer value; - g_hash_table_lookup_extended(attribute_hash,attr,&origkey,&value); - g_hash_table_remove(attribute_hash,origkey); - free_attribute_hash_key(origkey,value,NULL); - debug_print("Existing key `%s' freed.\n",attr); + if (g_hash_table_lookup_extended(attribute_hash,attr,&origkey,&value)) { + g_hash_table_remove(attribute_hash,origkey); + free_attribute_hash_key(origkey,value,NULL); + debug_print("Existing key `%s' freed.\n",attr); + } } tl = g_new0(PerlPluginTimedSList,1); -- 2.25.1