Fix some broken variable names

This commit is contained in:
Jared Johnson 2014-11-06 16:23:29 -06:00
parent 81b55eb1ac
commit 7fb80f35ab

View File

@ -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;
} }
} }