X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=src%2Fperl.c;h=a964cce4eb58b548e2842063ef38afb6664e5e44;hb=26314b8c3fb08e1f0017ee9a6277b7fe370bf2a0;hp=5b9a483ddde251f163b3f3899cdcf9124fad441f;hpb=68108d7b5688f4db5257a90437e50428a88d594a;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;
 		}