diff options
| author | ivan <ivan> | 2001-09-30 22:35:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-30 22:35:34 +0000 |
| commit | f832b7bf60eed131141facd8207a1c44a134d3ca (patch) | |
| tree | 36fa774ee8579f7a129693c9ae3580146d9f783c | |
| parent | 4ff1dd39976ab5c7550081743ca89a741100cfa3 (diff) | |
arg
| -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 |