diff options
Diffstat (limited to 'FS/FS/svc_acct.pm')
| -rw-r--r-- | FS/FS/svc_acct.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index e46b4e5f3..2390de02e 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -676,7 +676,7 @@ sub check { my $ulen = $usernamemax || $self->dbdef_table->column('username')->length; if ( $username_uppercase ) { - $recref->{username} =~ /^([a-z0-9_\-\.]{$usernamemin,$ulen})$/ + $recref->{username} =~ /^([a-z0-9_\-\.]{$usernamemin,$ulen})$/i or return "Illegal username: ". $recref->{username}; $recref->{username} = $1; } else { @@ -920,7 +920,7 @@ sub ssh { =head1 VERSION -$Id: svc_acct.pm,v 1.48 2001-09-30 22:19:34 ivan Exp $ +$Id: svc_acct.pm,v 1.49 2001-09-30 22:35:34 ivan Exp $ =head1 BUGS |