From: Sebastian Harl <sh@tokkee.org>
Date: Tue, 16 Sep 2008 13:36:18 +0000 (+0200)
Subject: perl plugin: Log the perl error messages if bootstrapping Collectd failed.
X-Git-Tag: collectd-4.4.4~23
X-Git-Url: https://git.octo.it/?a=commitdiff_plain;h=405d9d69c62e7d3ee178d741a0e82bc15ce187e6;p=collectd.git

perl plugin: Log the perl error messages if bootstrapping Collectd failed.

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 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);