summaryrefslogtreecommitdiffstats
path: root/adduser/adduser.perl
diff options
context:
space:
mode:
Diffstat (limited to 'adduser/adduser.perl')
-rw-r--r--adduser/adduser.perl2
1 files changed, 1 insertions, 1 deletions
diff --git a/adduser/adduser.perl b/adduser/adduser.perl
index 2728eff..2aa9c31 100644
--- a/adduser/adduser.perl
+++ b/adduser/adduser.perl
@@ -345,7 +345,7 @@ sub new_users_name_valid {
warn "Username doesn't match the regexp /$usernameregexp/\a\n";
}
return 0;
- } elsif ($username{$name}) {
+ } elsif (defined($username{$name})) {
warn "Username ``$name'' already exists!\a\n"; return 0;
}
return 1;