Only FR_TYPE_STRUCT need sorted children

FreeRADIUS · Sep 24, 2024 · 29e1963 · 29e1963
1 parent 8e0c6d7
commit 29e1963
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;