diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-09-29 02:03:51 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-09-29 02:03:51 +0000 |
| commit | f7f71ff7ace6f284acb9cb2cd46344731c6cb62d (patch) | |
| tree | a56b540b4eced87d5178b5c6bbb6d38c09d282f1 /mdkonline.pm | |
| parent | 84146741a28ff60684f07f33ab47c31867ba98be (diff) | |
| download | mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar.gz mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar.bz2 mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar.xz mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.zip | |
- pass string to mdkonline directl
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 6068a587..a5869e59 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -68,7 +68,7 @@ sub subscribe_online { sub check_valid_email { my $email = shift; - my $st = $email->get_text=~/^[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 } |