From 405d9d69c62e7d3ee178d741a0e82bc15ce187e6 Mon Sep 17 00:00:00 2001 From: Sebastian Harl Date: Tue, 16 Sep 2008 15:36:18 +0200 Subject: [PATCH] perl plugin: Log the perl error messages if bootstrapping Collectd failed. Signed-off-by: Sebastian Harl Signed-off-by: Florian Forster --- src/perl.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/perl.c b/src/perl.c index 84dd5372..2a8180d2 100644 --- a/src/perl.c +++ b/src/perl.c @@ -1481,7 +1481,9 @@ static int init_pi (int argc, char **argv) PL_exit_flags |= PERL_EXIT_DESTRUCT_END; if (0 != perl_parse (aTHX_ xs_init, argc, argv, NULL)) { - log_err ("init_pi: Unable to bootstrap Collectd."); + SV *err = get_sv ("@", 1); + log_err ("init_pi: Unable to bootstrap Collectd: %s", + SvPV_nolen (err)); perl_destruct (perl_threads->head->interp); perl_free (perl_threads->head->interp); -- 2.30.2