From 1414144068b7240f1f9bf17ec358aace45da0ed9 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Thu, 24 Jul 2003 12:44:19 +0000
Subject: [PATCH] Allow dots in the address

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@167 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/queue/smtp-forward | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/queue/smtp-forward b/plugins/queue/smtp-forward
index abb55e5..0aa7598 100644
--- a/plugins/queue/smtp-forward
+++ b/plugins/queue/smtp-forward
@@ -26,7 +26,7 @@ sub register {
   $self->register_hook("queue", "queue_handler");
 
   if (@args > 0) {
-    if ($args[0] =~ /^([\w_-]+)$/) {
+    if ($args[0] =~ /^([\.\w_-]+)$/) {
       $self->{_smtp_server} = $1;
     }
     else {