- Fix dot-atom expression in e-mail validation regexp (#1486808)

alecpl

2010-06-19 d7a5dfa26abe21aa9216fe862225baa2b5caca3e

 program/include/main.inc

@@ -1586,7 +1586,7 @@
  // from PEAR::Validate
  $regexp = '&^(?:
   ("\s*(?:[^"\f\n\r\t\v\b\s]+\s*)+")|              #1 quoted name
   ([-\w!\#\$%\&\'*+~/^`|{}]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}]+)*))    #2 OR dot-atom
   ([-\w!\#\$%\&\'*+~/^`|{}=]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}=]+)*))    #2 OR dot-atom (RFC5322)
   $&xi';

  if (!preg_match($regexp, $local_part))