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 | a4d355355c15a32766778dfba568b5162c99d7e4 (patch) | |
| tree | f8038e4dcc7ff6a515246a60d43c35a499dc5153 /adduser | |
| parent | a38fd82e99c02be3412745842f603c05c223ddef (diff) | |
| download | pw-darwin-a4d355355c15a32766778dfba568b5162c99d7e4.tar.gz pw-darwin-a4d355355c15a32766778dfba568b5162c99d7e4.tar.zst pw-darwin-a4d355355c15a32766778dfba568b5162c99d7e4.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 |