From 49b54bac99ab5c853826507ea525ba915f35eaa6 Mon Sep 17 00:00:00 2001
From: Sebastian Harl <sh@tokkee.org>
Date: Mon, 25 Feb 2008 08:28:39 +0100
Subject: [PATCH] perl plugin: Warn if "EnableDebugger" has been used after
 "LoadPlugin".

Signed-off-by: Sebastian Harl <sh@tokkee.org>
Signed-off-by: Florian Forster <octo@huhu.verplant.org>
---
 src/perl.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/perl.c b/src/perl.c
index 1ed9d003..50d189f8 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -940,6 +940,11 @@ static int perl_config_includedir (oconfig_item_t *ci)
 			|| (OCONFIG_TYPE_STRING != ci->values[0].type))
 		return 1;
 
+	if (NULL == aTHX) {
+		log_warn ("EnableDebugger has no effects if used after LoadPlugin.");
+		return 1;
+	}
+
 	value = ci->values[0].value.string;
 
 	if (NULL == perl) {
-- 
2.30.2