fix email regex typo

This commit is contained in:
Graham Knop 2008-04-09 17:09:35 +00:00
parent 2d42efd6b5
commit 88ddbbd26f

View file

@ -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;