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

View File

@ -521,7 +521,8 @@ sub check_name_match {
my ($dns_name, $helo_name) = @_; my ($dns_name, $helo_name) = @_;
return if !$dns_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) { if ($dns_name eq $helo_name) {
$self->log(LOGDEBUG, "reverse name match"); $self->log(LOGDEBUG, "reverse name match");