diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2006-02-27 14:29:14 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2006-02-27 14:29:14 +0000 |
| commit | b13bacc7cf34669c3c9281282846f4b9a671f2f4 (patch) | |
| tree | 466e85804fb8d944010bc44de3b71f0706aad366 /mdkonline.pm | |
| parent | c42a577fb6d0f9a67cc92ded38222282f6e17751 (diff) | |
| download | mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar.gz mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar.bz2 mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.tar.xz mgaonline-b13bacc7cf34669c3c9281282846f4b9a671f2f4.zip | |
(check_valid_email) make it work
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 2 |
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 } |