perl_checker cleanups

1 files 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;
                                }