Small cleanup in rlm_perl

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 3cee79a9d8a12423f3c923f3a79386560ceda2eb..d03dd0809e7585963bc4d7b2b888b9ca7d172535 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -916,11 +916,8 @@ static int do_perl(void *instance, REQUEST *request, char const *function_name)
                        RDEBUG("perl_embed:: module = %s , func = %s exit status= %s\n",
                               inst->module, function_name, SvPV(ERRSV,n_a));
                        (void)POPs;
-                       count = 0;
                        exitstatus = RLM_MODULE_FAIL;
-               }
-
-               if (count == 1) {
+               } else if (count == 1) {
                        exitstatus = POPi;
                        if (exitstatus >= 100 || exitstatus < 0) {
                                exitstatus = RLM_MODULE_FAIL;