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 ce956cb..dca182a 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -489,13 +489,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 {