Patch for bug 65313; improves the email regexp in order to detect better invalid email addresses; r=gerv, a=justdave.

1 files changed, 1 insertions, 1 deletions

diff --git a/checksetup.pl b/checksetup.pl
index 74151d87c..a6b673a60 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -3949,7 +3949,7 @@ if ($sth->rows == 0) {
     $mailcheckexp = Param('emailregexp');
     $mailcheck    = Param('emailregexpdesc');
   } else {
-    $mailcheckexp = '^[^@]+@[^@]+\\.[^@]+$';
+    $mailcheckexp = '^[\\w\\.\\+\\-=]+@[\\w\\.\\-]+\\.[\\w\\-]+$';
     $mailcheck    = 'A legal address must contain exactly one \'@\', 
       and at least one \'.\' after the @.';
   }