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 {
my ( $self, $filename ) = @_;
my $fh;
if ( ! open $fh, $exclude_file ) {
warn "Couldn't open greylist exclude file $exclude_file:$!\n";
if ( ! open $fh, $filename ) {
warn "Couldn't open greylist exclude file $filename:$!\n";
next;
}
while ( my $line = <$fh> ) {
@ -259,7 +259,7 @@ sub exclude_host {
$self->{_exclude_ip}{$pattern} = undef;
}
else {
$self->{_exclude_host}{$x} = undef;
$self->{_exclude_host}{$pattern} = undef;
}
}