summaryrefslogtreecommitdiff
path: root/mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm
blob: 2675be2efaec06c5de1880b9352c4c1009afeb32 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
--- ./Server/Relay.pm.orig	2014-08-29 12:29:32.000000000 -0400
+++ ./Server/Relay.pm	2014-08-29 12:30:08.000000000 -0400
@@ -24,7 +24,7 @@
     # Loop through the recipient list.
     foreach $target (@{$self->{TO}}) {
 	my $rr;
-	my $domain = /@(.*)/;
+	my $domain = ($target =~ /@(.*)/) ? $1 : hostdomain;
 	my $res = new Net::DNS::Resolver;
 	my @mx = mx($res, defined($1) ? $1 : hostdomain);