diff --git a/lib/WebGUI/Form/Email.pm b/lib/WebGUI/Form/Email.pm index 0a831603a..f19e9e032 100644 --- a/lib/WebGUI/Form/Email.pm +++ b/lib/WebGUI/Form/Email.pm @@ -89,10 +89,11 @@ Returns a validated email address. If the result does not pass validation, it re sub getValueFromPost { my $self = shift; my $value = $session{req}->param($self->{name}); - if ($value =~ /^([A-Z0-9]+[._+-]?){1,}([A-Z0-9]+[_+-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i) { - return $value; - } - return undef; + + if ($value =~ /^([A-Z0-9]+[._+-]?){1,}([A-Z0-9]+[_+-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i) { + return $value; + } + return undef; } #-------------------------------------------------------------------