aboutsummaryrefslogtreecommitdiff
path: root/usr.sbin/adduser/rmuser.perl
diff options
context:
space:
mode:
authorMark Newton <newton@FreeBSD.org>2000-03-14 14:19:17 +0000
committerMark Newton <newton@FreeBSD.org>2000-03-14 14:19:17 +0000
commit44dfd6a858cb781534c74ff3f507be0337a0a62e (patch)
tree803c34fe8906ea2823c9ae3712c060c394c213ec /usr.sbin/adduser/rmuser.perl
parentd137714f115a3c41662c4d8a0fc21e6d6f9a4b4e (diff)
downloadsrc-44dfd6a858cb781534c74ff3f507be0337a0a62e.tar.gz
src-44dfd6a858cb781534c74ff3f507be0337a0a62e.zip
Fix the case where username validity test would incorrectly fail if
the specified username contained uppercase alphabetics. PR: bin/17372
Notes
Notes: svn path=/head/; revision=58058
Diffstat (limited to 'usr.sbin/adduser/rmuser.perl')
-rw-r--r--usr.sbin/adduser/rmuser.perl2
1 files changed, 1 insertions, 1 deletions
diff --git a/usr.sbin/adduser/rmuser.perl b/usr.sbin/adduser/rmuser.perl
index 0e4296a33070..67dfa33f06ae 100644
--- a/usr.sbin/adduser/rmuser.perl
+++ b/usr.sbin/adduser/rmuser.perl
@@ -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";