Changed SvTRUE(sv) with SvOK(sv). SvTRUE is _NOT_ what we want.

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 86540a9..4257c3a 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -895,7 +895,7 @@ static int pairadd_sv(VALUE_PAIR **vp, char *key, SV *sv) {
        char            *val;
        VALUE_PAIR      *vpp;
 
-       if (SvTRUE(sv)) {
+       if (SvOK(sv)) {
                val = SvPV_nolen(sv);
                vpp = pairmake(key, val, T_OP_EQ);
                if (vpp != NULL) {