Allow dots in the address

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@167 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2003-07-24 12:44:19 +00:00
parent bae4a84b99
commit 1414144068

View File

@ -26,7 +26,7 @@ sub register {
$self->register_hook("queue", "queue_handler"); $self->register_hook("queue", "queue_handler");
if (@args > 0) { if (@args > 0) {
if ($args[0] =~ /^([\w_-]+)$/) { if ($args[0] =~ /^([\.\w_-]+)$/) {
$self->{_smtp_server} = $1; $self->{_smtp_server} = $1;
} }
else { else {