From 43a5cd64c9971da6d06436c8739387aac6496d1b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 28 Sep 2018 10:38:16 +0200
Subject: perl_checker cleanups

---
 userdrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/userdrake b/userdrake
index 5bf5027..8a31650 100755
--- a/userdrake
+++ b/userdrake
@@ -321,7 +321,7 @@ sub get_params {
         my @lines = <$fh>;
         close $fh;
         my $param_list = join('|', @parameters);
-        my %params = map { /^($param_list)\b(?:=|\s+)(.+)$/; $1 => $2 } grep {/^(?:$param_list)\b/} @lines;
+        my %params = map { /^($param_list)\b(?:=|\s+)(.+)$/; $1 => $2 } grep { /^(?:$param_list)\b/ } @lines;
         return \%params;
     }
     return {};
@@ -585,7 +585,7 @@ sub AddUser() {
                                $userEnt->Gid($u{gid});
                                $userEnt->ShadowMin(-1); $userEnt->ShadowMax(99999);
                                $userEnt->ShadowWarn(-1); $userEnt->ShadowInact(-1);
-                               if ((-e $u{homedir}) && (-d $u{homedir})) {
+                               if (-e $u{homedir} && -d $u{homedir}) {
                                    my $keephomedir = $in->ask_yesorno(N("Home directory already exists"), N("The requested home directory already exists. Would you like to preserve the existing directory?"));
                                    return if !$keephomedir;
                                }
-- 
cgit v1.2.1