Sound: joined sound files

[slotcarman.git] / SCX / LogPrinter.pm

diff --git a/SCX/LogPrinter.pm b/SCX/LogPrinter.pm
index 77ed03ad9cb6562fe9df73e75bb0147632b65923..a6124c002df10692c5f08655c74652a75dcfe0c7 100644 (file)
--- 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));
 }