bless $self, $class;
$self->{dump_bad_bytes} = 1 if $args->{dump_bad_bytes};
- $self->{dump_strange} = 1 if $args->{dump_strage};
+ $self->{dump_strange} = 1 if $args->{dump_strange};
$self->{uniq_only} = 1 if $args->{uniq_only};
$self->{skip_types} = $args->{skip_types};
return if $self->{skip_types}->{$key};
- if ($key !~ /finish_line/ || @vals) {
+ if ($key !~ /finish_line/ && @vals) {
my $val = join('|', @vals);
return if $self->{uniq_only}
&& defined $self->{uniq}->{$key}
sub strange_packet {
my ($self, $name, @data) = @_;
- return if !$self->{dump_strage};
+ return if !$self->{dump_strange};
$self->do_print('strange', $name, stringify_data(@data));
}