From d511c6f1ce8d2a4f5ca7b44b6f7d416ac00221c2 Mon Sep 17 00:00:00 2001 From: Arran Cudbard-Bell Date: Tue, 6 Jun 2017 10:17:29 -0400 Subject: [PATCH] More %pV --- src/modules/rlm_perl/rlm_perl.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c index c071d5f714f8..65059f211302 100644 --- a/src/modules/rlm_perl/rlm_perl.c +++ b/src/modules/rlm_perl/rlm_perl.c @@ -717,19 +717,15 @@ static void perl_store_vps(UNUSED TALLOC_CTX *ctx, REQUEST *request, VALUE_PAIR */ switch (vp->vp_type) { case FR_TYPE_STRING: - RDEBUG("$%s{'%s'} = &%s:%s -> '%s'", hash_name, vp->da->name, list_name, - vp->da->name, vp->vp_strvalue); + RDEBUG("$%s{'%s'} = &%s:%s -> '%pV'", hash_name, vp->da->name, list_name, + vp->da->name, &vp->data); (void)hv_store(rad_hv, name, strlen(name), newSVpvn(vp->vp_strvalue, vp->vp_length), 0); break; case FR_TYPE_OCTETS: if (RDEBUG_ENABLED) { - char *hex; - - hex = fr_abin2hex(request, vp->vp_octets, vp->vp_length); - RDEBUG("$%s{'%s'} = &%s:%s -> 0x%s", hash_name, vp->da->name, - list_name, vp->da->name, hex); - talloc_free(hex); + RDEBUG("$%s{'%s'} = &%s:%s -> 0x%pV", hash_name, vp->da->name, + list_name, vp->da->name, &vp->data); } (void)hv_store(rad_hv, name, strlen(name), newSVpvn((char const *)vp->vp_octets, vp->vp_length), 0);