bugfix [ 948050 ] Correct email address not accepted (fix)
This commit is contained in:
parent
f09f461b2d
commit
32e93292bb
2 changed files with 3 additions and 1 deletions
|
|
@ -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);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue