Fix the case where username validity test would incorrectly fail if
authorMark Newton <newton@FreeBSD.org>
Tue, 14 Mar 2000 14:19:17 +0000 (14:19 +0000)
committerMark Newton <newton@FreeBSD.org>
Tue, 14 Mar 2000 14:19:17 +0000 (14:19 +0000)
the specified username contained uppercase alphabetics.

PR: bin/17372

adduser/rmuser.perl

index 0e4296a330700d5dccfae9120a462ff491b29e7e..67dfa33f06ae11aef8d337c5d637ca8dc3590f05 100644 (file)
@@ -108,7 +108,7 @@ if ($#ARGV == 0) {
     # Username was given as a parameter
     $login_name = pop(@ARGV);
     die "Sorry, login name must contain alphanumeric characters only.\n"
-       if ($login_name !~ /^[a-z0-9_][a-z0-9_\-]*$/);
+       if ($login_name !~ /^[a-zA-Z0-9_]{1,}$/);
 } else {
     if ($affirm) {
        print STDERR "${whoami}: Error: -y option given without username!\n";