changeset 17 | ecc10b50b7a6 |
parent 15 | 2d41fac09084 |
child 19 | 6acf8ea44e0a |
--- a/lib/Quancom/Test/Server.pm Tue Jan 06 09:31:17 2009 +0100 +++ b/lib/Quancom/Test/Server.pm Tue Jan 06 10:56:28 2009 +0100 @@ -30,10 +30,10 @@ my $STX = "\x02"; my %ERROR = ( - checksum => pack("ac", "E", 0), - character => pack("ac", "E", 1), - command => pack("ac", "E", 2), - width => pack("ac", "E", 3), + checksum => "E0", + character => "E1", + command => "E2", + width => "E3", ); sub new {