Make %RAD_REQUEST read-write

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index da37d67..fc46d76 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -1035,7 +1035,11 @@ static int rlmperl_call(void *instance, REQUEST *request, char *function_name)
        PUTBACK;
        FREETMPS;
        LEAVE;
-
+       
+       if ((get_hv_content(rad_request_hv, &vp)) > 0 ) {
+               pairmove(&request->packet->vps, &vp);
+               pairfree(&vp);
+       }
 
        if ((get_hv_content(rad_reply_hv, &vp)) > 0 ) {
                pairmove(&request->reply->vps, &vp);