fix typo in last commit: it the dot that forbidden on start

2006-11-29 04:07:20 +00:00 · 2006-11-29 04:07:20 +00:00 · de174073c2
parent 354e38675b
commit de174073c2
1 changed files with 1 additions and 1 deletions
--- a/src/mail_add
+++ b/src/mail_add
@ -13,7 +13,7 @@ if (!$mailname || !$uid) {
 $ENV{PATH} = "";
 delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

-if (!($mailname =~ /^([a-z0-9_\+\.][a-z0-9_\+\.-]+\_[a-z0-9\.-]+)$/)) {
+if (!($mailname =~ /^([a-z0-9_\+-][a-z0-9_\+\.-]+\_[a-z0-9\.-]+)$/)) {
    die "Email is incorrect.";
 }
 $mailname=$1;