From: Alan T. DeKok <aland@freeradius.org>
Date: Wed, 29 Jul 2020 11:34:50 +0000 (-0400)
Subject: don't leave dangling pointers around
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b965a54caaae494e69c4a16195e4d64ff7804a25;p=thirdparty%2Ffreeradius-server.git

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 da8bda8276f..4b76384f7a3 100644
--- 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)) {