summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-09-29 02:03:51 +0000
committerDaouda Lo <daouda@mandriva.com>2004-09-29 02:03:51 +0000
commitf7f71ff7ace6f284acb9cb2cd46344731c6cb62d (patch)
treea56b540b4eced87d5178b5c6bbb6d38c09d282f1
parent84146741a28ff60684f07f33ab47c31867ba98be (diff)
downloadmgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar
mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar.gz
mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar.bz2
mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.tar.xz
mgaonline-f7f71ff7ace6f284acb9cb2cd46344731c6cb62d.zip
- pass string to mdkonline directl
-rw-r--r--mdkonline.pm2
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
}