From 7826221ab51f71e647a6489ef515a71c0464346d Mon Sep 17 00:00:00 2001
From: Mark Newton <newton@FreeBSD.org>
Date: Tue, 14 Mar 2000 14:27:34 +0000
Subject: Un-botch my botched reduction in permitted characters in the
 permitted username check which resulted from my attempt to expand them.

PR:		bin/17372
Reviewed by:	sheldonh
---
 adduser/rmuser.perl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/adduser/rmuser.perl b/adduser/rmuser.perl
index 67dfa33..8f6d56e 100644
--- a/adduser/rmuser.perl
+++ b/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-zA-Z0-9_]{1,}$/);
+	if ($login_name !~ /^[a-zA-Z0-9_]\w*$/);
 } else {
     if ($affirm) {
 	print STDERR "${whoami}: Error: -y option given without username!\n";
-- 
cgit v1.2.3-56-ge451