Fix some broken variable names
This commit is contained in:
parent
81b55eb1ac
commit
7fb80f35ab
@ -237,8 +237,8 @@ sub load_exclude_files {
|
|||||||
sub load_exclude_file {
|
sub load_exclude_file {
|
||||||
my ( $self, $filename ) = @_;
|
my ( $self, $filename ) = @_;
|
||||||
my $fh;
|
my $fh;
|
||||||
if ( ! open $fh, $exclude_file ) {
|
if ( ! open $fh, $filename ) {
|
||||||
warn "Couldn't open greylist exclude file $exclude_file:$!\n";
|
warn "Couldn't open greylist exclude file $filename:$!\n";
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
while ( my $line = <$fh> ) {
|
while ( my $line = <$fh> ) {
|
||||||
@ -259,7 +259,7 @@ sub exclude_host {
|
|||||||
$self->{_exclude_ip}{$pattern} = undef;
|
$self->{_exclude_ip}{$pattern} = undef;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$self->{_exclude_host}{$x} = undef;
|
$self->{_exclude_host}{$pattern} = undef;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user