Be consistent in what restriction is imposed on a username

in the code and what the warning message reads.

1 files changed, 4 insertions, 2 deletions

diff --git a/adduser/adduser.perl b/adduser/adduser.perl
index 421cf02..9084d22 100644
--- a/adduser/adduser.perl
+++ b/adduser/adduser.perl
@@ -328,8 +328,10 @@ sub new_users_name_valid {
     local($name) = @_;
 
     if ($name !~ /^[a-z0-9_][a-z0-9_\-]*$/ || $name eq "a-z0-9_-") {
-	warn "Wrong username. " .
-	    "Please use only lowercase characters or digits\a\n";
+	warn "Illegal username.\n" .
+	    "Please use only lowercase Roman, decimal, underscore, " .
+	    "or hyphen characters.\n" .
+	    "Additionally, a username should not start with a hyphen.\a\n";
 	return 0;
     } elsif ($username{$name}) {
 	warn "Username ``$name'' already exists!\a\n"; return 0;