diff options
| author |   Yaroslav Tykhiy <ytykhiy@gmail.com> | 2002-01-02 15:49:49 +0000 |
|---|---|---|
| committer | Yaroslav Tykhiy <ytykhiy@gmail.com> | 2002-01-02 15:49:49 +0000 |
| commit | ad3df1df7be99f6b798c6927e7b8917dbde5f497 (patch) | |
| tree | a6d92ca1ab7469f02fdd6c37efc33a31c6fecde9 /adduser | |
| parent | cc084209903db99d91d1185f3314fb66c59ffd23 (diff) | |
| download | pw-darwin-ad3df1df7be99f6b798c6927e7b8917dbde5f497.tar.gz pw-darwin-ad3df1df7be99f6b798c6927e7b8917dbde5f497.tar.zst pw-darwin-ad3df1df7be99f6b798c6927e7b8917dbde5f497.zip | |
Forbid adding duplicate users with the name of "0".
Previously, it was possible due to 0 and "0" being
equivalent in Perl.
Diffstat (limited to 'adduser')
| -rw-r--r-- | adduser/adduser.perl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/adduser/adduser.perl b/adduser/adduser.perl index 8e54d09..421cf02 100644 --- a/adduser/adduser.perl +++ b/adduser/adduser.perl @@ -319,7 +319,7 @@ sub new_users_name { warn "Username is longer than 16 chars\a\n"; next; } - last if (&new_users_name_valid($name) eq $name); + last if (&new_users_name_valid($name)); } return $name; } @@ -334,7 +334,7 @@ sub new_users_name_valid { } elsif ($username{$name}) { warn "Username ``$name'' already exists!\a\n"; return 0; } - return $name; + return 1; } # return full name |