Merge pull request #250 from dani/warn_inplicit_split
Prevent a "Use of implicit split" warning
This commit is contained in:
commit
044fff9aa8
@ -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");
|
||||||
|
Loading…
Reference in New Issue
Block a user