From cb447bc0c717d5ce6197c323f374e87be0022644 Mon Sep 17 00:00:00 2001 From: Pavel Rochnyack Date: Thu, 11 Aug 2016 16:01:52 +0600 Subject: [PATCH] perl plugin: Changed pluginname form to allow single perl plugin flush. (Part 2, fixed _plugin_unregister_generic() function to match _plugin_register_generic_userdata().) --- src/perl.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/perl.c b/src/perl.c index 1dd57a2b..700bb989 100644 --- a/src/perl.c +++ b/src/perl.c @@ -1732,8 +1732,6 @@ typedef int perl_unregister_function_t(const char *name); static void _plugin_unregister_generic (pTHX, perl_unregister_function_t *unreg, const char *desc) { - char cb_name[DATA_MAX_NAME_LEN]; - dXSARGS; if (1 != items) { @@ -1750,9 +1748,7 @@ static void _plugin_unregister_generic (pTHX, log_debug ("Collectd::plugin_unregister_%s: plugin = \"%s\"", desc, SvPV_nolen (ST (0))); - ssnprintf (cb_name, sizeof (cb_name), "perl/%s", SvPV_nolen (ST (0))); - - unreg(cb_name); + unreg(SvPV_nolen (ST (0))); XSRETURN_EMPTY; -- 2.11.0