X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Fperl.c;h=a964cce4eb58b548e2842063ef38afb6664e5e44;hb=dab48f284f9d4bb6ae98244310c5cdb6c5d91bf3;hp=5b9a483ddde251f163b3f3899cdcf9124fad441f;hpb=de21923bcdbd01827f445eb1f573778b7bfa5202;p=collectd.git

diff --git a/src/perl.c b/src/perl.c
index 5b9a483d..a964cce4 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -46,6 +46,7 @@
 #include <perl.h>
 
 #if defined(COLLECT_DEBUG) && COLLECT_DEBUG && defined(__GNUC__) && __GNUC__
+# undef sprintf
 # pragma GCC poison sprintf
 #endif
 
@@ -515,7 +516,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;
 		}