Call detach only if function exists

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 63ed701..174e74d 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -938,7 +938,7 @@ static int perl_detach(void *instance)
                }
 #endif
 
-       {
+               if (inst->func_detach) {
        dTHXa(inst->perl);
        PERL_SET_CONTEXT(inst->perl);
        {