From: bjordanov <bjordanov>
Date: Sun, 21 May 2006 10:39:32 +0000 (+0000)
Subject: 	Make %RAD_REQUEST read-write
X-Git-Tag: release_2_0_0_pre1~574
X-Git-Url: http://www.project-moonshot.org/gitweb/?a=commitdiff_plain;h=ddaae8d8b2f5ee163bff587105054958d0ce3310;p=freeradius.git

	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
--- 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);