From: Nick Porter <nick@portercomputing.co.uk>
Date: Tue, 24 Sep 2024 11:05:50 +0000 (+0100)
Subject: Only FR_TYPE_STRUCT need sorted children
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=29e19636e23fa614366ce7e67cb4335c5be52147;p=thirdparty%2Ffreeradius-server.git

Only FR_TYPE_STRUCT need sorted children
---

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 0e798bf261f..376354d83c6 100644
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -780,7 +780,7 @@ static int pairadd_sv(TALLOC_CTX *ctx, request_t *request, fr_pair_list_t *vps,
 		}
 		hv = (HV *)SvRV(sv);
 		if (get_hv_content(vp, request, hv, &vp->vp_group, list_name, da, false) < 0) goto fail;
-		fr_pair_list_sort(&vp->vp_group, fr_pair_cmp_by_da);
+		if (vp->vp_type == FR_TYPE_STRUCT) fr_pair_list_sort(&vp->vp_group, fr_pair_cmp_by_da);
 	}
 		break;