From: Alan T. DeKok <aland@freeradius.org>
Date: Thu, 22 Nov 2012 16:50:57 +0000 (-0500)
Subject: Nope.  That didn't work.
X-Git-Tag: release_2_2_1~211
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dbd561b4cc718348386dfca598701380f7344547;p=thirdparty%2Ffreeradius-server.git

Nope.  That didn't work.

newXS has to be after perl_parse
---

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index d05f3cede31..27d0955dc99 100644
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -481,13 +481,13 @@ static int perl_instantiate(CONF_SECTION *conf, void **instance)
 	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
 #endif
 
-        newXS("radiusd::radlog",XS_radiusd_radlog, "rlm_perl");
-
 	exitstatus = perl_parse(inst->perl, xs_init, argc, embed, NULL);
 
 	end_AV = PL_endav;
 	PL_endav = Nullav;
 
+        newXS("radiusd::radlog",XS_radiusd_radlog, "rlm_perl");
+
 	if(!exitstatus) {
 		exitstatus = perl_run(inst->perl);
 	} else {