fix email regex typo
This commit is contained in:
parent
2d42efd6b5
commit
88ddbbd26f
1 changed files with 1 additions and 1 deletions
|
|
@ -83,7 +83,7 @@ An optional value to process instead of POST input.
|
|||
sub getValueFromPost {
|
||||
my $self = shift;
|
||||
my $value = @_ ? shift : $self->session->form->param($self->get("name"));
|
||||
if ($value =~ /^[0-9a-z,_%+-]+@(?:[0-9a-z-]+\.)+[a-z]{2,9})$/i) {
|
||||
if ($value =~ /^[0-9a-z,_%+-]+@(?:[0-9a-z-]+\.)+[a-z]{2,9}$/i) {
|
||||
return $value;
|
||||
}
|
||||
return undef;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue