perl plugin: Removed logging calls from call_by_name().

The function might be called from a logging callback resulting in an infinite
loop. Instead the error message is now saved in $@.

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 4ae3cd1a322fe75ccb5c90f9376f91445d48ca5e..05e4b522d9c8c9fc7744b2ed6ea00effd5d463b7 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -751,7 +751,7 @@ static XS (Collectd_call_by_name)
        char *name = NULL;
 
        if (NULL == (tmp = get_sv ("Collectd::cb_name", 0))) {
-               log_debug ("Collectd::call_by_name: cb_name is not set.");
+               sv_setpv (get_sv ("@", 1), "cb_name has not been set");
                CLEAR_STACK_FRAME;
                return;
        }
@@ -759,7 +759,7 @@ static XS (Collectd_call_by_name)
        name = SvPV_nolen (tmp);
 
        if (NULL == get_cv (name, 0)) {
-               log_err ("Collectd::call_by_name: Unknown callback \"%s\".", name);
+               sv_setpvf (get_sv ("@", 1), "unknown callback \"%s\"", name);
                CLEAR_STACK_FRAME;
                return;
        }