From: Sebastian Harl <sh@tokkee.org>
Date: Tue, 29 Jan 2008 01:10:13 +0000 (+0100)
Subject: perl plugin: Fixed a bug in Collectd::plugin_unregister_data_set().
X-Git-Tag: collectd-4.3.0beta0~5
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=a31f60a6a3310b4067c496d74868c92c5d5b9a52;p=collectd.git

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 <sh@tokkee.org>
Signed-off-by: Florian Forster <octo@huhu.verplant.org>
---

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;