X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FLogPrinter.pm;h=a6124c002df10692c5f08655c74652a75dcfe0c7;hb=8f29704c1e17195a4e195872ed518dd6d2f0dd62;hp=77ed03ad9cb6562fe9df73e75bb0147632b65923;hpb=be20fd2ec154ea3fe7fbb3af3357062c09f1ad10;p=slotcarman.git

diff --git a/SCX/LogPrinter.pm b/SCX/LogPrinter.pm
index 77ed03a..a6124c0 100644
--- a/SCX/LogPrinter.pm
+++ b/SCX/LogPrinter.pm
@@ -15,7 +15,7 @@ sub new {
 	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};
 
@@ -27,7 +27,7 @@ sub cond_print {
 
 	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}
@@ -67,7 +67,7 @@ sub bad_bytes {
 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));
 }