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 346f9601f07dc4250a57b9f5e74520e3d0e358f2..c308e8cc234ce24b53b11487d36e7418e9889fd2 100644 (file)
--- 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;