|
@@ -1075,7 +1075,7 @@ sub parse_email {
|
|
} elsif ($formatted_email =~ /(\S+\@\S+)(.*)$/) {
|
|
} elsif ($formatted_email =~ /(\S+\@\S+)(.*)$/) {
|
|
$address = $1;
|
|
$address = $1;
|
|
$comment = $2 if defined $2;
|
|
$comment = $2 if defined $2;
|
|
- $formatted_email =~ s/$address.*$//;
|
|
|
|
|
|
+ $formatted_email =~ s/\Q$address\E.*$//;
|
|
$name = $formatted_email;
|
|
$name = $formatted_email;
|
|
$name = trim($name);
|
|
$name = trim($name);
|
|
$name =~ s/^\"|\"$//g;
|
|
$name =~ s/^\"|\"$//g;
|