From: Herwin Weststrate <herwin@quarantainenet.nl>
Date: Tue, 19 Sep 2017 11:04:02 +0000 (+0200)
Subject: Small cleanup in rlm_perl
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=83b463271fe88da76b141bddda873ab569e36b45;p=thirdparty%2Ffreeradius-server.git

Small cleanup in rlm_perl
---

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 3cee79a9d8a..d03dd0809e7 100644
--- 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;