Merge pull request #250 from dani/warn_inplicit_split

Prevent a "Use of implicit split" warning
This commit is contained in:
Matt Simerson 2016-04-19 18:02:14 -10:00
commit 044fff9aa8
1 changed files with 2 additions and 1 deletions

View File

@ -521,7 +521,8 @@ sub check_name_match {
my ($dns_name, $helo_name) = @_;
return if !$dns_name;
return if split(/\./, $dns_name) < 2; # not a FQDN
my @dots = split(/\./, $dns_name);
return if scalar @dots < 2; # not a FQDN
if ($dns_name eq $helo_name) {
$self->log(LOGDEBUG, "reverse name match");