diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 77ddb3d..95aaed5 100644
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -270,14 +270,6 @@ static PerlInterpreter *rlm_perl_clone(PerlInterpreter *perl, pthread_key_t *key
 }
 #endif
 
-static void xs_init(pTHX)
-{
-	char const *file = __FILE__;
-
-	/* DynaLoader is a special case */
-	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
-
-}
 /*
  *
  * This is wrapper for radlog
@@ -306,6 +298,17 @@ static XS(XS_radiusd_radlog)
 	XSRETURN_NO;
 }
 
+static void xs_init(pTHX)
+{
+	char const *file = __FILE__;
+
+	/* DynaLoader is a special case */
+	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
+	
+	newXS("radiusd::radlog",XS_radiusd_radlog, "rlm_perl");
+
+
+}
 /*
  * The xlat function
  */
@@ -447,8 +450,6 @@ static int mod_instantiate(CONF_SECTION *conf, void *instance)
 	end_AV = PL_endav;
 	PL_endav = Nullav;
 
-	newXS("radiusd::radlog",XS_radiusd_radlog, "rlm_perl");
-
 	if(!exitstatus) {
 		exitstatus = perl_run(inst->perl);
 	} else {