From a31f60a6a3310b4067c496d74868c92c5d5b9a52 Mon Sep 17 00:00:00 2001 From: Sebastian Harl Date: Tue, 29 Jan 2008 02:10:13 +0100 Subject: [PATCH] perl plugin: Fixed a bug in Collectd::plugin_unregister_data_set(). The function tried to access a nonexistent second argument. Signed-off-by: Sebastian Harl Signed-off-by: Florian Forster --- src/perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perl.c b/src/perl.c index 346f9601..c308e8cc 100644 --- a/src/perl.c +++ b/src/perl.c @@ -827,7 +827,7 @@ static XS (Collectd_plugin_unregister_ds) log_debug ("Collectd::plugin_unregister_data_set: type = \"%s\"", SvPV_nolen (ST (0))); - if (0 == pplugin_unregister_data_set (SvPV_nolen (ST (1)))) + if (0 == pplugin_unregister_data_set (SvPV_nolen (ST (0)))) XSRETURN_YES; else XSRETURN_EMPTY; -- 2.30.2