From e47ef75357e3f5428309bdca79ee0b0ded53bf8d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 6 Dec 2006 14:46:50 +0000 Subject: (check_valid_email) relax constraints on email adresses (#26495) --- mdkonline.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mdkonline.pm b/mdkonline.pm index 03a20e15..f43c2f50 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -230,7 +230,7 @@ sub check_server_response { sub check_valid_email { my $email = shift; - my $st = $email =~ /^[a-z][a-z0-9_\-]+(\.[a-z][a-z0-9_]+)?@([a-z][a-z0-9_\-]+\.){1,3}(\w{2,4})(\.[a-z]{2})?$/ix ? 1 : 0; + my $st = $email =~ /^[a-z][a-z0-9_\-]*(\.[a-z][a-z0-9_]+)?@([a-z][a-z0-9_\-]+\.){1,3}(\w{2,4})(\.[a-z]{2})?$/ix ? 1 : 0; return $st; } -- cgit v1.2.1