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

This commit is contained in:
Antoine Beaupré 2006-11-29 04:07:20 +00:00
parent 354e38675b
commit de174073c2
1 changed files with 1 additions and 1 deletions

View File

@ -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;