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 d05f3cede31b8a82fbec011d1604e6fe891d8b71..27d0955dc9985d6ea0bc5542fd357c63b2d189d9 100644 (file)
--- 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 {