X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Fperl.c;h=971fabe2fa5aff5d0e90b1783a0a97c6685b1d34;hb=6d79874b8afa65cbb4a8e348caf37b8e60fbeded;hp=7c8a6158f71db7a9aff44f7c117998cb5454aea9;hpb=88bd89f106abd5c0a9f9a80246e31a16c36a3c6d;p=collectd.git

diff --git a/src/perl.c b/src/perl.c
index 7c8a6158..971fabe2 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -1626,18 +1626,19 @@ static void _plugin_register_generic_userdata(pTHX, int type,
       ret = plugin_register_flush("perl", perl_flush, /* user_data = */ NULL);
     }
 
-    if (0 == ret)
+    if (0 == ret) {
       ret = plugin_register_flush(pluginname, perl_flush, &userdata);
+    } else {
+      free(userdata.data);
+    }
   } else {
     ret = -1;
   }
 
   if (0 == ret)
     XSRETURN_YES;
-  else {
-    free(userdata.data);
+  else
     XSRETURN_EMPTY;
-  }
 } /* static void _plugin_register_generic_userdata ( ... ) */
 
 /*