Be more forgiving about loaded modules

If they don't exist, don't complain

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 8fad3b85b7524063a341b5c4611532b8fbd9072c..ce956cb066034c508a5b180196a9f0859bb17d01 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -154,12 +154,7 @@ static void **rlm_perl_get_handles(pTHX)
        AV *modules = get_av(dl_modules, FALSE);
        void **handles;
 
-       if (!librefs) {
-               radlog(L_ERR,
-                  "Could not get @%s for unloading.\n",
-                  dl_librefs);
-               return NULL;
-       }
+       if (!librefs) return NULL;
 
        if (!(AvFILL(librefs) >= 0)) {
                return NULL;
@@ -241,8 +236,8 @@ static void rlm_destroy_perl(PerlInterpreter *perl)
        PERL_SET_CONTEXT(perl);
 
        handles = rlm_perl_get_handles(aTHX);
+       if (handles) rlm_perl_close_handles(handles);
        rlm_perl_destruct(perl);
-       rlm_perl_close_handles(handles);
 }
 
 /* Create Key */
@@ -494,6 +489,8 @@ 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;
@@ -510,8 +507,6 @@ static int perl_instantiate(CONF_SECTION *conf, void **instance)
 
        PL_endav = end_AV;
 
-        newXS("radiusd::radlog",XS_radiusd_radlog, "rlm_perl.c");
-
        rad_reply_hv = newHV();
        rad_check_hv = newHV();
        rad_config_hv = newHV();