From: Alan T. DeKok <aland@freeradius.org>
Date: Tue, 3 Jul 2018 15:43:40 +0000 (-0400)
Subject: fix up "taint" fix
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b45edd7bd8a64f760094948a612bc9625f65b120;p=thirdparty%2Ffreeradius-server.git

fix up "taint" fix
---

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index d85f05f09a1..406d6c687f2 100644
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -660,7 +660,7 @@ static void perl_vp_to_svpvn_element(REQUEST *request, AV *av, VALUE_PAIR const
 			       list_name, vp->da->name, hex);
 			talloc_free(hex);
 		}
-		av_push(av, newSVpvn((char const *)vp->vp_octets, vp->vp_length));
+		sv = newSVpvn((char const *)vp->vp_octets, vp->vp_length);
 		break;
 
 	default: