From 586c6641484029849d24b20cf1ac33ee96b91ee5 Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Fri, 3 Sep 2021 17:45:24 +0000
Subject: [PATCH] some spacing fixes

---
 codepot/etc/perl/Codepot/AccessHandler.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/codepot/etc/perl/Codepot/AccessHandler.pm b/codepot/etc/perl/Codepot/AccessHandler.pm
index 35b5cdb0..c78d9135 100644
--- a/codepot/etc/perl/Codepot/AccessHandler.pm
+++ b/codepot/etc/perl/Codepot/AccessHandler.pm
@@ -388,16 +388,15 @@ sub __handler
 			}
 		}
 	}
-	
+
 	my $auth = -3;
 	if ($cfg->{login_model} eq 'LdapLoginModel')
 	{
-		$auth = authenticate_ldap ($r, $cfg, $userid, $password);
+		$auth = authenticate_ldap($r, $cfg, $userid, $password);
 	}
 	elsif ($cfg->{login_model} eq 'DbLoginModel')
 	{
-		($auth, $errmsg) = authenticate_database (
-			$dbh, $cfg->{database_prefix}, $userid, $password, $qc);
+		($auth, $errmsg) = authenticate_database($dbh, $cfg->{database_prefix}, $userid, $password, $qc);
 		if ($auth <= -1)
 		{
 			$r->log_error ("Database error - $errmsg");
@@ -468,7 +467,7 @@ sub handler: method
 		return Apache2::Const::HTTP_INTERNAL_SERVER_ERROR;
 	}
 
-	$res = __handler ($r, $cfg, $dbh);
+	$res = __handler($r, $cfg, $dbh);
 
 	close_database ($dbh);
 	return $res;