Free rad_perlconf_hv in correct perl context

This should fix #1675

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 702b12d2a5b42be8d1b22e60adb61905d899eb8a..28252c64346772d36a6c99e47fcdb2d927d9988d 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -1000,12 +1000,13 @@ static int mod_detach(void *instance)
        rlm_perl_t      *inst = (rlm_perl_t *) instance;
        int             exitstatus = 0, count = 0;
 
-       if (inst->rad_perlconf_hv != NULL) hv_undef(inst->rad_perlconf_hv);
 
-       if (inst->perl_parsed && inst->func_detach) {
+       if (inst->perl_parsed) {
                dTHXa(inst->perl);
                PERL_SET_CONTEXT(inst->perl);
-               {
+               if (inst->rad_perlconf_hv != NULL) hv_undef(inst->rad_perlconf_hv);
+
+               if (inst->func_detach) {
                        dSP; ENTER; SAVETMPS;
                        PUSHMARK(SP);