From ad3df1df7be99f6b798c6927e7b8917dbde5f497 Mon Sep 17 00:00:00 2001
From: Yaroslav Tykhiy <ytykhiy@gmail.com>
Date: Wed, 2 Jan 2002 15:49:49 +0000
Subject: Forbid adding duplicate users with the name of "0". Previously, it
 was possible due to 0 and "0" being equivalent in Perl.

---
 adduser/adduser.perl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'adduser')

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
-- 
cgit v1.2.3-56-ge451