From: Florian Forster <octo@collectd.org>
Date: Wed, 17 Jun 2015 05:26:39 +0000 (+0200)
Subject: perl plugin: Fix invalid free().
X-Git-Tag: collectd-5.5.1~110^2~5
X-Git-Url: https://git.octo.it/?a=commitdiff_plain;h=94e5829f3f2a6ea5eef5455cf3f39a28f7f8cdaa;hp=84f5f5923d8109366b2c3caf66ad7c2d89be38bd;p=collectd.git

perl plugin: Fix invalid free().

notification_meta_t.name is a char[], which we must not free.
---

diff --git a/src/perl.c b/src/perl.c
index 78e508ae..5aa96c35 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -510,7 +510,6 @@ static int av2notification_meta (pTHX_ AV *array, notification_meta_t **meta)
 		if (NULL == (tmp = hv_fetch (hash, "value", 5, 0))) {
 			log_warn ("av2notification_meta: Skipping invalid "
 					"meta information.");
-			free ((*m)->name);
 			free (*m);
 			continue;
 		}