arg needs to be a buffer

diff --git a/src/main/radclient.c b/src/main/radclient.c
index d9380f38d9469236758a81b40174a67219a8ae8b..7194ac4ef43ebfdebedaccd2a1d04c1b390b45cd 100644 (file)
--- a/src/main/radclient.c
+++ b/src/main/radclient.c
@@ -1022,7 +1022,7 @@ int main(int argc, char **argv)
                        timeout = atof(optarg);
                        break;
                case 'v':
-                       printf(radclient_version);
+                       print(radclient_version);
                        exit(0);
                        break;
                case 'x':

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index ebde0ce9a1be9ed90819df45517b4265a0c45258..c7bc863b76d7e4e15fa6b08c06d50249c9800f76 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -34,7 +34,6 @@ RCSID("$Id$")
 #ifdef INADDR_ANY
 #undef INADDR_ANY
 #endif
-
 #include <EXTERN.h>
 #include <perl.h>
 #include <XSUB.h>
@@ -449,15 +448,18 @@ static int perl_instantiate(CONF_SECTION *conf, void **instance)
        
        rlm_perl_make_key(inst->thread_key);
 #endif
+
+       char arg[] = "0";
+       
        embed[0] = NULL;
        if (inst->perl_flags) {
                embed[1] = inst->perl_flags;
                embed[2] = inst->module;
-               strcpy(embed[3], "0");
+               embed[3] = arg;
                argc = 4;
        } else {
                embed[1] = inst->module;
-               strcpy(embed[2], "0");
+               embed[2] = arg;
                argc = 3;
        }