From b13bacc7cf34669c3c9281282846f4b9a671f2f4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 27 Feb 2006 14:29:14 +0000
Subject: (check_valid_email) make it work

---
 mdkonline.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mdkonline.pm')

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
 }
 
-- 
cgit v1.2.1