From: Arran Cudbard-Bell <a.cudbardb@freeradius.org>
Date: Mon, 29 Oct 2012 06:41:06 +0000 (+0000)
Subject: arg needs to be a buffer
X-Git-Tag: release_3_0_0_beta1~1632
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a984181dff893951695aa22500cb330315983bcb;p=thirdparty%2Ffreeradius-server.git

arg needs to be a buffer
---

diff --git a/src/main/radclient.c b/src/main/radclient.c
index d9380f38d94..7194ac4ef43 100644
--- 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 ebde0ce9a1b..c7bc863b76d 100644
--- 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;
 	}