From 1b7f41fa74a1323ed618e586d50ef5aa104ada7c Mon Sep 17 00:00:00 2001 From: Ryan Steinmetz Date: Fri, 29 Aug 2014 17:48:07 +0000 Subject: - Fix run time errors (upstream bugs: 80682, 37731) - Bump PORTREVISION --- mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm (limited to 'mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm') diff --git a/mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm b/mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm new file mode 100644 index 000000000000..2675be2efaec --- /dev/null +++ b/mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm @@ -0,0 +1,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); + -- cgit v1.2.3