equal
deleted
inserted
replaced
28 use IO::Socket; |
28 use IO::Socket; |
29 use IO::Select; |
29 use IO::Select; |
30 |
30 |
31 my $STX = "\x02"; |
31 my $STX = "\x02"; |
32 my %ERROR = ( |
32 my %ERROR = ( |
33 checksum => pack("ac", "E", 0), |
33 checksum => "E0", |
34 character => pack("ac", "E", 1), |
34 character => "E1", |
35 command => pack("ac", "E", 2), |
35 command => "E2", |
36 width => pack("ac", "E", 3), |
36 width => "E3", |
37 ); |
37 ); |
38 |
38 |
39 sub new { |
39 sub new { |
40 my $class = ref $_ ? ref shift : shift; |
40 my $class = ref $_ ? ref shift : shift; |
41 |
41 |