don't leave dangling pointers around

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index da8bda8276f5c5bd4dc0173c7275ec3a0930fbee..4b76384f7a33bf6ac4569083a6458c3289f862bf 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -907,6 +907,8 @@ static int do_perl(void *instance, REQUEST *request, char const *function_name)
 
                count = call_pv(function_name, G_SCALAR | G_EVAL | G_NOARGS);
 
+               rlm_perl_request = NULL;
+
                SPAGAIN;
 
                if (SvTRUE(ERRSV)) {