summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2006-12-06 14:46:50 +0000
committerThierry Vignaud <tv@mandriva.org>2006-12-06 14:46:50 +0000
commite47ef75357e3f5428309bdca79ee0b0ded53bf8d (patch)
tree55df3cbe5297097aab828c629942f8dcbb271487
parent0cfd2253c3bdd2f17b211449b7a4b16ffff8a01c (diff)
downloadmgaonline-e47ef75357e3f5428309bdca79ee0b0ded53bf8d.tar
mgaonline-e47ef75357e3f5428309bdca79ee0b0ded53bf8d.tar.gz
mgaonline-e47ef75357e3f5428309bdca79ee0b0ded53bf8d.tar.bz2
mgaonline-e47ef75357e3f5428309bdca79ee0b0ded53bf8d.tar.xz
mgaonline-e47ef75357e3f5428309bdca79ee0b0ded53bf8d.zip
(check_valid_email) relax constraints on email adresses (#26495)
-rw-r--r--mdkonline.pm2
1 files changed, 1 insertions, 1 deletions
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;
}