Fix variable name in ident/p0f that caused a crash

This commit is contained in:
Jared Johnson 2014-12-11 15:12:17 -06:00
parent 4547677135
commit 45da377897

View File

@ -195,7 +195,7 @@ sub register_genre_blocking {
my ( $self ) = @_; my ( $self ) = @_;
my @patterns = $self->qp->config('p0f_blocked_operating_systems'); my @patterns = $self->qp->config('p0f_blocked_operating_systems');
return unless @patterns; return unless @patterns;
for my $pattern ( @pattern ) { for my $pattern ( @patterns ) {
if ( $pattern =~ /^\/(.*)\/$/ ) { if ( $pattern =~ /^\/(.*)\/$/ ) {
push @{ $self->{os_block_re} }, qr/$1/; push @{ $self->{os_block_re} }, qr/$1/;
} else { } else {