Data is int, not int*

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 6d013a0..3554b90 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -169,7 +169,7 @@ static XS(XS_radiusd_radlog)
        int     level;
        char    *msg;
        
-       level = *(int *) SvIV(ST(0));
+       level = (int) SvIV(ST(0));
        msg   = (char *) SvPV(ST(1), PL_na);
        
        /*