diff --git a/lib/WebGUI/Form/Email.pm b/lib/WebGUI/Form/Email.pm index 689f95695..624c1aae4 100644 --- a/lib/WebGUI/Form/Email.pm +++ b/lib/WebGUI/Form/Email.pm @@ -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;