diff --git a/lib/WebGUI/Form/Email.pm b/lib/WebGUI/Form/Email.pm index 544e4f2a8..50addd741 100644 --- a/lib/WebGUI/Form/Email.pm +++ b/lib/WebGUI/Form/Email.pm @@ -79,7 +79,7 @@ Returns a validated email address. If the result does not pass validation, it re sub getValueFromPost { my $self = shift; my $value = $self->session->form->param($self->get("name")); - if ($value =~ /^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$/i) { + if ($value =~ /^([0-9a-zA-Z]([-.+\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$/i) { return $value; } return undef;