bugfix [ 948050 ] Correct email address not accepted (fix)

This commit is contained in:
JT Smith 2004-05-25 19:56:47 +00:00
parent f09f461b2d
commit 32e93292bb
2 changed files with 3 additions and 1 deletions

View file

@ -68,7 +68,7 @@ These functions are available from this package:
=cut
sub _checkEmailAddy {
return ($_[0] =~ /^([A-Z0-9]+[._-]?){1,}([A-Z0-9]+[_-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i);
return ($_[0] =~ /^([A-Z0-9]+[._+-]?){1,}([A-Z0-9]+[_+-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i);
}
#-------------------------------------------------------------------