From 6b3ca4b214b659bc17e4d4e8ee3112bc703e3a5f Mon Sep 17 00:00:00 2001
From: bjordanov <bjordanov>
Date: Thu, 24 Mar 2005 08:04:04 +0000
Subject: [PATCH] Changed SvTRUE(sv) with SvOK(sv). SvTRUE is _NOT_ what we
 want.

---
 src/modules/rlm_perl/rlm_perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 86540a9..4257c3a 100644
--- 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) {
-- 
2.1.4