summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-02-27 14:29:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-02-27 14:29:14 +0000
commitb13bacc7cf34669c3c9281282846f4b9a671f2f4 (patch)
tree466e85804fb8d944010bc44de3b71f0706aad366
parentc42a577fb6d0f9a67cc92ded38222282f6e17751 (diff)
downloadmgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar
mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar.gz
mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar.bz2
mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar.xz
mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.zip
(check_valid_email) make it work
-rw-r--r--mdkonline.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 4a5366a2..5de62025 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -202,7 +202,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
}