diff options
| -rw-r--r-- | adduser/rmuser.perl | 2 |
1 files changed, 1 insertions, 1 deletions
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"; |