lib/Quancom/Test/Server.pm
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 {