diff --git a/src/perl.c b/src/perl.c
index 7558a50638390fc7918b8d1b60420d14a2f8a3a6..6d3326faebca7f89b4c5f02223c3bc5e2237ac50 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
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 == aTHX) {