From: bjordanov <bjordanov>
Date: Wed, 13 Sep 2006 08:36:53 +0000 (+0000)
Subject: Fixed bug id #390 Removed pairfree and Updated to use pairmove.
X-Git-Tag: release_2_0_0_pre1~457
X-Git-Url: http://www.project-moonshot.org/gitweb/?a=commitdiff_plain;h=30c96dd8ab321e873ad4003ba4455b358ab28f77;p=freeradius.git

Fixed bug id #390 Removed pairfree and Updated to use pairmove.
---

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index ad89aff..0900e4a 100644
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -1073,34 +1073,29 @@ static int rlmperl_call(void *instance, REQUEST *request, char *function_name)
 	
 	vp = NULL;
 	if ((get_hv_content(rad_request_hv, &vp)) > 0 ) {
-		pairfree(&request->packet->vps);
-		request->packet->vps = vp;
+		pairmove(&request->packet->vps, &vp);
 		vp = NULL;
 	}
 
 	if ((get_hv_content(rad_reply_hv, &vp)) > 0 ) {
-		pairfree(&request->reply->vps);
-		request->reply->vps = vp;
+		pairmove(&request->reply->vps, &vp);
 		vp = NULL;
 	}
 
 	if ((get_hv_content(rad_check_hv, &vp)) > 0 ) {
-		pairfree(&request->config_items);
-		request->config_items = vp;
+		pairmove(&request->config_items, &vp);
 		vp = NULL;
 	}
 	
 	if (request->proxy &&
 	    (get_hv_content(rad_request_proxy_hv, &vp) > 0)) {
-		pairfree(&request->proxy->vps);
-		request->proxy->vps = vp;
+		pairmove(&request->proxy->vps, &vp);
 		vp = NULL;
 	}
 
 	if (request->proxy_reply &&
 	    (get_hv_content(rad_request_proxy_reply_hv, &vp) > 0)) {
-		pairfree(&request->proxy_reply->vps);
-		request->proxy_reply->vps = vp;
+		pairmove(&request->proxy_reply->vps, &vp);
 		vp = NULL;
 	}