fix up "taint" fix

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index d85f05f09a13e065186a12c6ef90ad47ce0aeecf..406d6c687f2ac131b3bb90a70a132f7deb8e8161 100644 (file)
--- 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: