SCX::LogPrinter: fix typo strage->strange

[slotcarman.git] / SCX / LogPrinter.pm

diff --git a/SCX/LogPrinter.pm b/SCX/LogPrinter.pm
index 445dd4deaa1671a06fbf291c96e4205111d30e9c..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};
 
@@ -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));
 }